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ABSTRACT 


This  paper  describes  an  algorithm  for  scannino  cowman  Is 
of  a  specific  query  lanquaqe  fcr  a  data  management  system. 
The  commands  include  relational,  arithmetic  assi qnmont ,  and 
Boolean  expressions.  The  alqorithm  accepts  the  expressions 
in  conventional  infix  notation,  transforms  them  into  postfix 
notation,  then  into  an  efficient,  set  cf  computing  s*eps 
known  as  ordered  triples.  Structured  proqrammina  is  used  in 
that  extensive,  indented  comments  form  t h structure  and 
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CHAPTER  I 

I  NTPO  CUCT  ION' 

Triin inq  personnel  tc  perform  th*>ir  assijr.el  du‘i'  is 
a  na ver-endinq  responsibility  cf  nna  i»js.  !>->;'jocn  '1  m  i 
duties  are  both  continually  chan  4  in  7.  -vei.  it  *h<=  personae 1 
and  the  basic  work  to  te  acccmnl  ir^-d  could  b-  ccnsi  1 'i  'I  to 
ho  constant,  *  ha  approach  tc  accomplish  dc  work  an  i  *  h-* 
detailed  tactics  used  will  varv  as  individuals  seer,  easier 
and  bet-.er  Methods  tc  wake  ’■heir  work  mote  !lja?im. 

Man  aaers  and  supervisors  are  also  r  t-sronsi  t  1*»  r'er  ch  arte  as 
th  ?y  blond  their  personality  into  *■  he  or  qai.iz  at  i  on  and 
search  for  more  efficient,  mere  pioiuctivc,  and  less 
exoonsive  means  to  accomplish  ‘he  coal. 

One  significant  aspect  of  the  continual  change  in 
personnel  and  work  is  ‘he  apprepr ia‘.o  training  they  rood  to 
properly  perform  the  duty.  Certainly  th^y  rous‘  be 
sufficiently  trained  tc  achieve  a  certain  level  of 
proficiency  to  make  them  productive  ir.  the  -job.  However, 
over  training  or  training  in  tasks  which  they  do  not  perform 
is  in  unnecess  ary  expense  and  thus  should  be  avoided  if  at 
all  possible.  To  optimize  the  bene f i t - t r a i ni n q  ratic,  a 
manager  should  expend  resources  to  train  personnel  only  ‘m 


1 


those  M-5K3  which  they  will  actnllv  perform  or.  "he  ion. 

Optimized  training  appears  idea  1  when  consider  in  :  one 
oerson  and  one  ioh  which  can  be  specifically  1ef'ir.-»d  o:  i  f 
nuner ous»  individuals  are  perforsim  ->xac"  ly  "  ne-  sa®--  .1  i"  i->s. 
This  ideal  situation  seldom  occurs  in  the  real  world.  \ 
more  plausible  situation  within  a  liver,  organ iza* ion  1 ;  *  o: 

a  number  of  the  employees  tc  perform  identical  or  similar 
tasks  for  a  certain  portion  of  their  woLk-v°ek,  hu*  cr  ly  i 
few  employees  would  be  doinq  tasks  which  are  identical  or 
sufficiently  similar  such  that  the  same  training  curriculum 
would  b°  suitable. 

The  next  logical  step  iri  analyzing  training 
re  luireaents  is  an  effort  to  identify,  catoaorize,  and  iron? 
th°  tasks  performed.  As  an  example,  suppose  omploy°°  A 
span  Is  50%  if  his  time  performing  task  1,  30%  perfomim  task 
2,  and  20%  perfomiag  task  1.  Employee  P's  time  is 
distributed  as  10%  on  task  1,  60$  on  "ask  3,  and  10%  on  **ask 
4  which  employee  A  did  not  perform.  For  employee  C,  assum° 

•a  listribution  of  40*  cn  task  2,  2b  $  on  task  3,  and  ucs  on 
task  4.  The  overi,.r  of  duties  is  quite  evident  and 
considering  economy  of  scale,  all  employees  should  be 
trained  together  instead  of  a  Tarring  program  beino 
customized  for  each  of  them.  On  the  ether  hand,  trair.ini 
employ00  A  on  task  4  is  a  wasted  effort.  To  obtain  maximum 
return  for  training  resources  expanded,  "he  employees  shouT: 
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be  urounei  for  -he  various  tea  in  in  i  sessions.  "n:  p  I  o  y->-  A 
an  1  P  would  be  -rained  on  t  ask  1,  A  an!  C  or  t  a.1  <  , 

and  C  on  task  1 ,  and  A  and  C  on  -.ask  t».  Wit:,  -bis  riounir.  j 
-ho  employees  are  trained  or;  cr.lv  -  n  one  -asks  which  *  r-y 
will  ne  performing  (no  traininq  is  was-ci)  an  i  the  -raisin  r 
classes  are  as  la  r  i<?  as  possible  (or  feasible)  lor  tcoi.caic 
considerations. 

Expanding  -he  example  to  a  lario  organization  of 
several  hundred  employees  per  tor  min.}  various  -asks  car: 
provide  considerable  savings  it  the  job  analysis  is  properly 
conducted,  The  same  information  used  to  cor.  1  net  -ho  job 
analysis  may  also  he  quite  beneficial  for  pr-enaiinr  -job 
d  vjc  r  io- ion  s,  reassigning  tasks  -c  anq  loyos,  t-iuciru  -irro 
con  sum  in  j  tasks,  identifying  problem  areas,  and  ir.  i  amoral 
imnrovinr  the  overall  e f f ec- ivencss  of  -he  or qaniza- ion. 

This  is  where  occupational  analysis  car.  be  effectively 
use!.  dec u pat i on  a  1  analysis  is  or“  means  ct  collectinj  la-a 
about  the  tasks  performed  within  an  organization.  t- 
includes  collect ing  information  about  tho  job  from  -he 
ueoole,  -heir  supervisors,  and  others.  Occupational 
analysis  is  w->l  1  acccptcl  throughout  -he  world  and  is  us?! 
extensively  by  military  services,  civilian  governments, 
universities,  and  industry  (2). 

In  gathering  the  information,  responder- s  are  ark«_u  to 
indicat1  on  a  relative  scale  bow  much  time  they  spar.  ! 


Pn>  r  r  o  :  :u  1  :i  j 


Uffcr?rt  i 


i  > l  a  o -i-> *  n:::.  air  •  . 


Tk-ur  l  'spoaovo  iro  uiccoss^’i  to  |  i ovi  !•*  a 


■;'c>'!  i  t  a  t  e  ;  ’ 


f  i  j‘‘  d-votvd  -  o  t  h-*  v  iriou;:  task".  I  r:  a  1  d  1  *  i  o *o  *  -  -  *  t 
roh-tr  i  inf  orao  r ion,  history  an  i  ;-<•  ecr.  d  ary  •:  a  t<i  i.;  )■*  •. 
ii*vrj),  i  iai;i  -hroiMh  resncn^s  ♦  o  v>n**u.  j  j«  a  tie  r. 

Hi  >*  ofv  lata  will  u-suilly  inclu  lo  aj«-  ,  •-•••x  ,  nc.  ,  sr  ill.-, 
->x  p  >r  i  •-T.ir**  in  t  hr  posit  ion,  an  i  similar  i  r.foi  nation  . 
.5-‘Cor.<iarv  .htj  i  ,  normally  r*  late-l  'o  r.  ow  uj  a  r  t » n  t  ••  a c  r. 


M5<  i.i  or  how  ouch  train:  tn 


:  0 1  r  -  :  :  01  o  acr.  1 a .<  .  . : 


•data  c:oll«c*»-  i  i.;  in  a  quan- i  f  i-»  I  fcrr  or  can  ft  r*-.  a  :  i  1  y 
con  ve  rt  ->  1  *0  nan*  i  r  red  form.  it  oulo  t  r  oh*  ai ne  i  tier  a 
lari-'  sn  ul;  o*  i-sron  lenta  to  nitiriz"  -he  jff-cr  or 
i»ar*  'ir:u*  i  ons.  It  is  ir  *  he  procc  . sir.  a  n.d  analysis  cf  *f.  - 
rt.spans-  a  *  .hat  t  as  ccafuter  pity*  ’•  -'i  ? t: :  f  i  '.an*  rol-a  . 

The  Air  Fore-.-  ha.;  it  cl  one  of  -he  pioneers  in 


oc.oup  1“  ion  a  1  analysis.  In  the  -arlv  sixties. 


;  v  e  :  a 


o-volooin  a  several  computer  prcirat.;  to  io  t.h  »  analysis,  a 
sya*ci  which  has  become  known  a.:  f,o  Comprehensive 
Occupational  Data  Analysis  nroqra  m  (CCHAP)  .  .line-  -ho 
beoinnim  of  C)DAP  aril  as  more  experience  in  cccup  a  -  a  1 
analysis  was  oained,  several  pro  uaais  have  1 « en  ald-=I  to  -; 
system  to  increase  its  capability.  Unfortunately,  r.o 
overall  system  design  existed  and  *hc  locucenta*  ion  let- 
much  *o  be  desired.  As  mirht  be  expected  a  r.  1  too  o**cr 


experienced,  to  is  evolutionary  oroc  ass  result • 


-e:;' 


n  a 


which  1.5  li:  fie  nit  tc  ir  edify  a  R  d  not  totally  r^fjoi,  :iv-  *  > 
th*'  ti « 1  s  of  *he  ast-ts.  Real izin  4  M:e  limits*: i  cue  <■  f  *  u-» 
ori  7  i.ua  1  system,  th*-  Occupation!  1  "  ref  Projrrr  01  T  •-  x  a 

A  ft  t  ’Ini  varsity  is  auler  contract  with  +h'-  'J.f>.  Navy  *3 
r^writ-  the  pr  >q  ratio.  Following  t*-«  initial  analysis  of  t 
sya*  »a  and  thruuqh  ccnsultat  icr.  with  th<»  Navy,  c*  h»r 
milit.arv  services,  an  1  ether  CODA?  user;,  it  war  air-el  th 
in  entirely  new  desiqn  cf  portions  of  th*-  system  wool  1  lie 
pref arable  to  just  rewriting  evistina  proarams,  Th'  new 
lesion  should  emphasize  documentation,  understar.  1-abi  lity, 
in  o  1  i  f  i  i  b  i  1  i  t  y ,  ar.d  t can ? porta bil it  /  while  *  r  o  v  i  ;  i  r.q 
incr-'  as-»  1  lata  manipulation  capability  1*  a  decrease  m  co 
an  1  r ime  involved. 

The  data  j at  ferine,  el  i*  ini,  sorting,  an  1  ere  a4- in. j  2* 
thj  initial  lata  files  wore  include  1  in  the  rewrite  r*>r*io 
of  the  uys*’-#,  Th“  portion  whic:h  is  beinc  i» desi qn" i 
inolules  a  con  sol i  1  a t i c r  of  rrcirau;  which  will  manipulate 
the  lata  in  th'  files.  Th-  lata  manipulation  pro a  rams  wil 
be  based  on  an  interpreter  which  processes  statements  of  t 
newly  irsiqned  CODAP  Lanquai*3. 

With  this  introduction  tc  job  analysis  and  the  CODA'1 
Le write  orojeet,  the  remainder  of  this  paper  will  focus  or. 
th  a  d^aiin  of  a  small  sequent  cf  the  CODAP  programs.  An 
interpreter  to  manipulate  the  CODAP  data  base  is  discussed 
in  chapter  2.  Chanter  3  delineates  t he  overall  lesion 
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The  incision  *o  re-design  th°  portion  of  ♦  he  system 
which  .Ti^nipulatfs  the  da^a  was  bis11  ]  in  part  an  a  i--s;re  to 
provide  a  more  natural,  easier  *o  use  .nys^er.  The  oiioinal 
COD  A  P  system  was  quite  tedious  sinc^  users  were  r-»qu  iued  to 
indicate  th^ir  desired  data  manipulation  acfior.  by  niacin  j 
numbers  in  specified  card  columns.  This  procedure  was  slow 
and  quite  prone  to  inducing  errors.  To  overcome  ’-hi:-  probio 
it  was  decided  to  use  free  foraa*  ,  easily  understandable 
English- like  commands. 

The  statistical  Analysis  System  (3AS)  language  nearly 
satiafi  ?1  the  above  requirements  but  was  r.c*  totally  satis¬ 
factory  (7).  Seme  of  the  actions  in  occupational  analysis 
are  quite  unique.  Consequently  a  new  lanauaae,  the  CODA? 
language,  was  developed  to  enhance  the  usefulness  of  the 
system.  The  new  COCAP  lanquage  is  desiqr.ed  to  permi*  conver: 
ient  manipulation  of  the  -job  analysis  data.  The  la‘a,  which 
is  loqically  stored  in  table  forma*,  can  be  manipulate  .1  by 
either  rows  or  columns  with  nearly  equal  ease. 

Sinc«  the  purpose  of  this  paper  is  to  present  the  lesion 
and  i  mu  lemen  ta  t  ion  of  cr.ly  a  portion  of  the  CODAP  int^rpr^te 


the  language  1  s  not  covered  in 


i  '■>  *  a  i  1 . 


o r 1 y  those  rorticn : ; 
of  the  language  applicable  to  ♦his  oarer  art  *xf laired.  A 
full  description  of  the  CODAP  language  nay  be  found  in  the 
CODAP  door's;  Manual  (5). 

This  paper  is  limited  to  the  l->3i  jn  and  i  hi  p  lam-  r  *  a  t  ion 
of  modules  which  will  handLe  the  "full  assignment  clause" 
an  i  the  "Boolean  expression".  The  syntax  graph  s  which  illu 
trate  these  two  commands  are  in  appendix  1.  Td  -  lines  indi 
cate  the  passible  paths  which  may  he  followed.  A  divorger.c 
of  lines  means  either  path  is  possible.  Circles  and  ovals 
denote  the  enclose!  expression  is  *o  h®  included  in  the 
command  string  exactly  as  specified. 

As  an  example,  consider  the  full  assignment  clause. 

Tt  may  consist  of  a  simple  assignment  clause  or  the 
IF-THEN-5LS2  expression  which  may  have  one  or  more  r.  tsted 
IF-THFNs,  bu^  only  one  ELSE-clause.  A  possible  full  assign 
men*  clause,  as  expressed  in  the  COCAP  language,  might  be 
IF  Bill  =  1  THEN  Tom  :=  S 
IF  Bill  =  4  TEEN  Tern  :=  b 

FL5E  Tern  :=  1  'comment'. 

The  full  assignment  clause  is  the  ma-jor  portion  of  the 
CREATE  command  which  may  be  us=d  to  add  new  columns  cr  rows 
to  the  data  base.  The  "Eill  =  1"  portion  is  a  reia*ional 
expression  which  is  tes*ed  for  a  true  or  false  indication  * 


determine  which  assignment  clause  is  executed. 


Onlv  or.- 


assignment  clause  of  the  full  assignment  clause  will  he 
executed . 

A  typical  boolean  expression  far  selecting  1  tut ;o* 
of  the  CO  CAP  data  base  might  he 

IN  01  .ANT.  (  (T  1  <=  3)  .OH.  (?->  =  r)). 

Th »  "IN  51"  indicates  cnly  the  group  of  columas  included  it, 
the  label  01  are  to  be  considered  .  "NOT  IN"  is  an  a  1 1 r r. a t 
indicator  of  which  groups  are  to  be  excluded.  "T1  <-  1" 

indicates  only  those  columns  where  the  II  variable  is  loss 
than  or  equal  to  three  will  be  accepted.  However,  in  the 
■above  example,  if  the  T4  variable  is  five.  Me  value  o(  II 
may  be  greater  than  three  and  the  column  is  still  considered 
The  relational  expressions  "T1  <=  3"  and  "T4  -  S"  ar^  the 
operands  for  the  ".OR."  logical  operator.  Th«  operands  fni 
the  ".AND."  operator  are  "IN  G 1"  and  the-  in'-orim  re.snl*  of 
(  (T1  <=  3)  .OP.  (T4  =  h)  )  . 

It  is  possible  tc  structure  the  source  language  for 
direct  execution.  However,  such  a  procedure  does  restrict 
the  flexibility  in  formating  the  source  language  and  reduces 
the  efficiency  of  program  execution.  For  complex  source 
languages  which  have  a  somewhat  complicated  goal  it  is  com mo 
practice  to  first  trdnslate  the  source  language  into  an 
internal  form  which  is  easier  t0  handle  mechanically.  In 
most  internal  forms,  the  operators  normally  appear  in  the 
ordjr  in  which  •■hey  are  to  be  executed  (1).  Long  command 


strings  or  sentences  arc  broken  down  into  short  phrases  cf  i 
sinil-*  operator  and  the  necessary  operand  (s).  The  proqiam 
which  loas  the  translation  places  *  he  phrases  in  the  nrop-L 
order  for  execution .  Thus  the  execution  prooram  do«s  r.ot 
neei  to  he  concerned  with  precedence  of  operators,  hut  nas 
the  simplified  task  of  executinq  in  order  of  sequence,  one 
at  a  time . 

Arithmetic  and  Boolean  expressions,  as  ccmmonlv  written 
can  he  quite  complex  for  a  computer  to  process.  The-  normal 
expressions  used  are  known  as  "infix  notation"  since  the 
binary  ouerators  are  placed  between  the  two  operands  on  wh.ic 
they  are  to  operate.  Unary  operators  are  placed  immediately 
in  front  of  th-^ir  respective  operand.  To  establish  a  single 
correct  sequence  of  execution  cf  t  h  ^  operators,  the  opera¬ 
tors  ar<-  qenerally  assigned  a  prece  d-ance--t  hose  of  a  higher 
nrecedence  being  executed  before  those  of  a  lower  preced-nc^ 
The  precedence  execution  order  can  b“  modified  by  the  use 
parentheses  executing  the  expression  enclosed  by  parentheses 
before  the  operatoions  outside  *he  parentheses. 

Human  beings  find  the  infix  notation  quite  understanda¬ 
ble  since  it  is  the  most  commonly  used  system  and  th*-y  have 
qenerally  been  exposed  to  it  since  their  earliest  arithmetic 
classes.  The  ability  tc  scan  and  comprehend  more  than  oi;-* 
symbol  at  a  time  coupled  wi*-h  the  free  use  of  parenthesis, 
sometimes  added  merely  to  improve  clarity,  aids  in  t^e 


comprehension  of  this  notation.  However,  a  mechanical 
device,  or  electronic  in  th*3  case  of  a  computer,  does  not. 
possess  the  same  capability  as  humans  and  *hus  does  r.c*- 
respond  as  well  to  infix  notation.  A  computer  is  esserit  ial  1 
restricted  to  considering  a  single  symbol  at  a  time  and  con- 
pa  ring  that  symbol  with  another.  Further,  parentheses  which 
humans  add  for  clarity  are  an  unnecessary  added  svmbcl  to 
the  computer,  requiring  additional  processing  time.  Conse¬ 
quently,  to  aid  the  computer,  infix  expressions  are  often 
translated  into  another  form  such  as  suffix  or  post*;* 
notation. 

Postfix  notation  will  he  used  in  the  CODAP  interpreter. 
Parentheses  are  not  required  in  postfix  notation  and  opera¬ 
tors  are  placed  in  exactly  the  order  in  which  they  arc  tc  b« 
executed.  This  eliminates  *he  possible  confusion  o'  opera¬ 
tor  precedence  and  reduces  the  number  of  symbols  which  the 
coraout^r  must  urocess.  As  examples,  A  +  B  would  be  written 
as  ABt  in  postfix  notation;  and  A  +  n  *  C  as  ADC**.  It 
should  also  be  noted  that  the  varibles  and  constants  appear 
in  exactly  the  same  order  in  both  infix  ard  postfix  nota¬ 
tion,  anl  in  postfix  the  operands  appear  immediately  to  t  h*-- 
left  of  the  operators. 

Once  an  expression  has  been  converted  to  postfix  nota¬ 
tion,  a  second  conversion  is  easily  accomplished  *o  achiev<- 
a  convenient  form  for  a  sinqle  binary  opera*or--a  triple. 
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Th-3  tripl-*  may  be  expressed  as 

(<Operafoi>,  COperani  1>,  <Cperan;i  2>) 
where  COperand  1>  ind  <Cnerand  2>  specify  the  arguments  fo: 
operator.  As  an  example,  A  ♦  H  miqht  be  r e press- n » 1  by 

♦ ,  A ,  n 

ar.i  A  *  3  ♦  C  *  D  cculd  be  represented  by  the  se']U3nca 

1.  *,  A,  B 

2.  *,  C,  D 

3.  +  ,  (1),  (2). 

Th'3  numbers  in  parentheses  indicate  that  operand  is  the 
interim  result  obtained  from  the  triple  row  illustrated  (see 
reference  3).  Interim  results  are  often  pushed  onto  a  stack, 
then  popped  from  the  s*ack  whenever  required  in  a  succeed  ini 
triple.  For  unary  operators,  cne  of  th°  operand  positions 
is  left  blank.  The  significance  of  ordered  triples  is  that 
the  triples  appear  in  the  sequence  in  which  they  arc  *o  be 
executed.  once  an  expression  is  in  ordered  triple  tcrm> 
it  can  be  efficiently  executed  numerous  times  by  a  computer. 

The  objective  of  the  module  designs  discussed  in  this 
paper  is  to  accept  the  numerical  tokens  of  normal  ir.^ix 
notation  which  are  the  Fnqlish-lik-3  commands  as  input. 

These  commands  are  converted  to  postfix  notation  where 
necessary  for  easier  prccessinq.  The  tokens  are  then 
placed  in  an  ordered  triple  array  which  is  the  output  from 
the  modules.  Chapter  3  discusses  the  conside ra t ions  of 


CHAPTER  III 


DESIGN  CONSIDERATIONS 

Se  v  ?  r  a  1  factors  should  be  given  careful  ccr;  oid- ra  r  ion 
when  beginning  the  design  of  comma*- ar  software.  The  soft¬ 
ware  should  be  understandable,  modifiable,  reliable,  useful 
transportable,  and  efficient.  lln  lers t  an  ia Lie  cede  car.  be 
produced  by  good  documentation  techniques.  The  iocumer. ra¬ 
tion  should  be  adequate  to  tee*  th  '  needs  of  the  user  and 
those  responsible  for  maintaining  f  software.  r*  shoull 
be  standardized  and  uniform.  Ex*?rna]  iocumen  ta  t  ion  should 
provide  ari  overall  design  of  hh“  program  modules  and  the1 
relationship  with  calling  and  callc  1  modules.  In  line  com¬ 
ments  should  bo  sufficient  to  allow  reasonably  knowlc dgeaul 
programmers  to  easily  fellow  *he  lojic  and  unlerstand  the 
code.  The  comments  in  the  programs  produced  for  this  rtpor 
set  the  structure  of  the  main  program  logic  and  the  code 
carries  out  the  logic  cf  the  comments. 

Software  which  is  understandable  has  a  head  start  on 
being  modifiable.  if  it  can  be  understood,  it  cui  usually 
be  modified.  Additionally,  tricky  code  shoull  ba  avoided. 
It  shoull  b 3  modularized,  each  module  performing  a  single 
function.  Thus  any  necessary  charges  will  affect  *vc 
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fewest  number  of  lines  ct  c'Hp  possible.  Subrout  in  shoal  1 
be  completely  contained  on  one  057-  fc  allow  an  easv  overall 
view.  Subroutines  developed  for  this  project  have  bc-’t 
limine!  to  let's  than  ICC  lines  of  code-  which  shcull  he 
com  p  reh-»nda  b  le  *•0  any  rroqrammer  familiar  wi*h  ‘-be 
proa  r  ammi r. 7  language. 

To  he  reliable,  the  code  shouli  respond  appropriately 
with  anv  and  all  of  the  possible  rime  of  input  ia*-a  which 
it  might  encounter.  The  command  string  which  is  *0  be 
provided  to  the  molules  under  consi  lerat  ior.  will  hav=  S. -»r. 
previously  chocked  tor  syntax  errors.  Consequently  few 
routines  have  been  included  for  handling  erroneous  input. 
This  also  conforms  with  the  specifications  provided. 
Disallowing  syntax  errors,  reliability  can  be  chock’d  by 
testing  ‘he  range  of  ocssi  bi  1  i  *3S  of  acceptable  inpu4-. 
Although  not  all  possible  combinations  can  reasonably  be 
tested,  sufficient  variations  of  input  shouli  be  “nccuntered 
to  cause  each  part  cf  the  code  to  be  exercise  1.  Such  a 
procedure  should  provide  a  high  degree  of  reliability. 

To  be  efficient,  the  cod3  should  execute  in  minimal 
computer  time.  Pr  oq  La  m  tr  in  g  shortcuts  and  machine  dependent 
techniques  are  methods  use  1  to  improve  efficiency.  toth 
are  contrary  to  the  qoals  of  understandable,  modifiable, 
and  transportan  le.  Consequently  some  loss  in  efficiency 
will  be  accepted  to  enhance  ether  qoals. 
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Transportability  is  of  era  jor  concern  for  t  he  C'ZM 
programs,  They  will  be  use-1  by  various  aqer.cior  on  rum-.  rou 
tuakes  of  computers  and  should  perform  well  cn  all  ore  ass:  or:. 
To  enhance  transportability  standar  1  ANSI  FORTRAN  nas  1-ten 
selects  1  as  the  lanquaae  for  all  mod  ales.  It  is  com  ton 
enough  '■hat  any  facility  of  rosonable  site  would  likely 
already  have,  or  can  reasonably  acquire,  the-  necessary 
FORTRAN  compiler. 

The  last  and  probably  the  most  important  qcal  disousse 
is  usefulness.  To  be  useful,  ♦he  cede  must  perform  t^ 
desired  process  for  which  it  was  produced.  This  is  v^rific 
by  a  riqorous  test  effort,  ir.putinq  test  data  and  carefully 
checking  the  output  for  the  intend?  1  results.  The  system 
will  be  useful  to  mere  facilities  by  usinq  a  common  program 
mim  lanquaqe,  FORTRAN,  as  discussei  with  transportability. 

Structured  programmin'*  has  been  used  expensively 
throughout.  A  top-down  approach  was  taken  to  break  the 
problem  in  to  manageable  portions  and  tQ  enhance  the  moils 
understandable,  reliable,  and  modifiable  code.  A  hierarchy 
chart  of  the  system  designed  can  b“  found  in  Figure  1.  The 
projram  structure  could  have  been  improved  usinq  a  language 
with  structured  constructs,  such  as  FL/I  or  ALGCL.  However 
FORTRAN  was  the  specified  lanquage.  Therefore,  tc  provide 
as  much  structure  as  possible,  comments  are  plentiful  arid 


structured  in  nature.  The  "if-then-else"  construct  is  used 
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f  rvf-jueti  *■  1  y  to  bejin  t  he  ccirnents  ar-.oor  i  ate  d  with  »  s  i  - 
tional  .  I  n-.ientat  icn  is  e:nr  loy  al;  -  o  (  rm  i  •  j 

visual  indication  at  Dlcck  struct  ;irc  ana  ♦  h<-  i  a  r.  je  c  t  . 
if- 1  !.*»n-el  35  construct.  The  corj-?:.  t  "or:  i  oh  i  ?  "  .'i  wifi  -  - 
the  «r  n  i  of  an  i  f-thtan-else  hlccs  cf  col-5,  A 1 1  h  o  m :  uc 
an  approach  raquir-»s  an  abunlan*  ts-  cf  JO  To.:,  ‘■hey  il> 
the  only  leans  of  'runsferrinq  control  for  a  cor,  ii*  irr.a  1 
construct  in  the  FORTRAN  ianquai5.  'isually  Th*-  iC  'TT 
cor. .a*  nuct  should  b-»  avoided  as  muen  as  possible.  *  c  -  a k 
code  easv  *  o  follow.  However  the  author  believes,  “he 
structure  of  th--  cop  (tents  and  i  n  1  ?r.  ta  *•  i  on  a  lor  7  wi*h  th- 
con*  rollo  1  use  of  GO  TOs  has  resulted  it:  a  well  structure  1 
an  1  j  uit-»  ur.  i-orstand  able  program  consider  ir.j  ’■he  limitation.  ■ 
ot  the  FORTRAN’  larouage. 

Based  on  the  overview  of  the  l--sian  philosiphy,  cf  iptcr 
will  describe  in  detail  the  al  0  ar  i”  runs  used  .  It  will  d  •-  sc  i  be 


logic  usef  to  transfers  conurand  .Trims  into  orders  1  triple:'. 


CHAPTER  IV 


DESCTTFTICN  OF  A  L  10”  I  T  H  "!f» 

T:r-  purpoi.^  of  this  pro  jeer  w  i  *o  kx.ixn  a::1  :  t  p  1  >  a  -> :  ♦ 
modules  to  perform  ■  mc  separ Ate  f  unc*  ions.  Mo*  ;•  *h  -  *■ »» 1 1 
assi  -)  nment  clause  a  n  1  Boolean  ?*or-?  sic-:,  i  ».«*  !•:  1  t  ■>  N: 


transform 

e  i  into 

the  internal  form 

of  or  l*-i c  1  trxn 

e  f  f  ic  i ~»at 

eXcCUt 

ion.  Alt houqh  the 

*wc  ou*pu*.:  w  ->  r 

the  same 

format. 

separate  proc-sne- 

;  were  'k  sir*  .1  5 

inputs  xre  no*  sufficiently  similar.  This  is  a  1  =  c  if,  o  ;  r  -  - 

•non*  with  the  good  sof*wxre  enqine-rinq  techniques  c  t  crie 
function  per  moiula  which  enhances  prep  ram  un  i^rst  ir.  c  a  i  i  i  i  *  v 
Th-»  uroqatrs  to  process  the  full  AFsiqr.ir.eut  cIaup-’  we  r*  d  «  v  •'  1 
oood  first.  These  were  used  as  a  star  tinq  point  for  ievelop 
ir.j  the  programs  which  proc°?s  the  Boolean  expressions. 

Full  Assiqnment  Clause- 

rhj  full  assignment  clause,  as  discussed  in  chapter  2, 
consists  of  an  IF-THEN-FLSE  clause.  The  IF  portion  is 
optioml  and  if  present  is  compose  1  of  a  simple  relational 
expression.  The  objects  of  THEN  and  ELS'1  will  be  an 
arithmetic  expression  whose  value  is  computed  and  assigned 
to  a  viriable.  The  syntax  uraph  appears  in  appendix  1. 


Th->  full  a ->si  gn  ir-^n  *■  claus°  ■?  xi*rle  pit  sprite  1  i  :i  chant.: 
2  is  ren^ated  hfire  for  clarity. 

IF  Bill  =  3  THEN  Tcir  :  =  c> 

IP  Bill  =  a  THEN  Tcir  :=  ^ 

EISE  Tom  :=  1  * cc ament1 . 

When  transformed  to  ordered  triples  this  expression  heccm-s 


Row  Q£§£§£3£  operand  J  2l’§£3I-J  2 
l7  SUE  ”  ~bITi  ~ 

2.  PNZ  POP  ( 5 ) 

F.  :=  Ten  S 

4.  B  ( 1n) 

c>.  S«p  3  ill  « 

6.  D  N  7  f»0?  (9) 

l .  Tern  f' 

d .  B  (10) 

9.  :=  Tcir  1 


To  form  the  above  triples,  all  relational  expressions 
are  subtracted.  The  execution  phase  will  push  *he  in*ari» 
result  onto  a  stack  which  may  be  subsequently  retrieved  wit) 
the  FOP  command.  I  tr  med  iate  ly  followini  the  relational  tripl- 
is  a  conlitional  branch  to  the  nex*-  assignment  clause  to  be 
considered  should  the  relational  expression  be  false.  Aft^r 
each  assiqnment  clause  is  an  unconditional  branch  to  ‘he 
end  of  the  full  assignment  clause,  since  only  one  of  th^- 
assignraents  is  to  be  executed. 

When  a  full  assiqnment  clause  is  * o  be  processed,  the 
appro priate  tokens  will  be  passed  by  an  array  paramQtel-  »  o 
subroutine  CTRI^S,  the  control  module  for  creating  triples. 
The  flow  chart  for  CTRIF5  appear,  in  Figure  2.  CTPTFS  check.. 
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f  or  an  TF- token  and  if  found  calls  sunrout  ir.«s  FHLA7  ?  and 
POSTF  X.  in  raturn  from  POSTFX,  another  check  io  mad- 

an  I  F-token  which  exists  for  nes’-ed  IF-TJt  Nn.  If  four  1 ,  tv- 
pro  nam  loops  back  until  the  FLSE-*oken  is;  encoun^rc  1  which 
will  generate  a  call  cf  POSTFX  to  process  the  FL >F  ^nm-ir 

clause.  tlDon  the  final  return  fre.m  POSTFX  a  ch^ck  i^ 
to  verify  the  requirement  for  internal  a  Id res sec  w i f  u i n 
triples.  This  requirement  exists  whenever  the  full  assign¬ 
ment  clause  contains  the  IF-THEN-ELSF  tokens,  that  is  any¬ 
time  it  consists  of  more  than  a  single,  simple  assignment 
clause.  The  need  ad  address  is  the  address  of  the  end  of  *  r.  e 
triples  and  will  become  the  operand  for  the  unconditional 
branch  at  the  «nd  of  each  set  cf  triples  representing  a 
simple  assignment  clause.  The  triples  are  then  written  out 
if  desired  for  maintenance  or  debugging  purposes  and  th*-> 
subroutine  returns  to  the  calling  module. 

Subroutine  RELATE  processes  the  relational  expression 
following  the  IF-token  and  places  it  in  *he  ordered  triples. 
The  flow  chart  is  illustrated  in  Figure  1.  °elaticral 
expressions  are  limited  to  the  following  components: 

1.  Optional  string  of  unary  pluses  anl/or  minuses 

2.  Constant  or  variable  identifier; 

3.  Relational  operator; 

4.  Optional  string  of  unary  pluses  and/or  minuses 

5.  Constant  or  variable  identifier. 
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Unary  pluses  are  disregarded  since  they  he  vo  10  effect. 
Unary  minuses  will  negate  the  constant  or  variable  token  or. 
which  fh»7  operate.  (The  processing  of  unary  pluses  and 
minuses  is  a  minor  detail  which  ios  not  appear  in  any  of 
the  flow  charts  for  sake  of  simplicity.)  The  operanis  of 
the  relational  operator  (variables  and/or  constants)  are 
placed  in  the  second  and  third  columns  of  the  triple  array. 
An  internal  code  for  subtract  is  placed  in  the  firs*  column 
of  the  triples  as  the  operator. 

A  branch  condition  based  on  the  specific  relational 
operator  is  placed  in  the  next  triple.  The  address  cf  *his 
triple  is  saved  for  inserting  *h°  object  cf  the  brarch  i*  a 
later  time  when  i t  beccaes  known.  This  occurs  in  subroutine 
BLDTFP.  The  purpose  here  is  tc  generate  a  branch  to  the  end 
of  the  THEN  assignment  clause  should  the  relational  expres¬ 
sion  be  false.  The  address  of  the  end  of  the  THEN-clause 
is  not  known  until  BLDTFP  completes  building  the  triples  for 
the  ThEN  assignment  clause. 

Subroutine  POSTFX  receives  the  s*rina  of  tokens  repre¬ 
senting  a  simple  assignment  clause  such  as 
A  :=  B  *  (C  ♦  D  **  E)  -  Sgrt  (F)  . 

With  this  input,  POSTFX  transforms  the  token  string  into 
oostfix  notation  which  would  be 

A,  B,  C,  D,  I,  **,  *,  *,  F,  Sgrt,  -. 

BLDTRP  is  then  called  to  fcuild  the  ordered  triples  from  *ht> 
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simple  assignment  clause.  The  flow  chart  in  Figure  u  illus¬ 
trates  the  oasic  algorithm  used. 

Input  tokens  are  parsed  one  at  a  time  and,  depending 
on  what  they  represent,  either  moved  directly  to  the  output 
stream  or  pushed  onto  a  last-in-first-out  (LIFO)  stack  tor 
an  interim  period.  When  the  "end"  token  is  encounter^),  anv 
tokens  remaining  on  the  stack  are  moved  tc  the  output  stream. 
Since  the  order  of  variables  and  constants  as  read  Item  let* 
to  right  is  the  same  for  bath  infix  and  postfix  notation, 
they  are  always  moved  directly  to  the  output  stream.  Th- 
orler  of  operators  is  changed  as  necessary  to  obtain  >e 
proper  sequence  of  execution.  The  standard  precedence  of 
operators  from  highest  to  lowest  is: 

Funct ions 

Unary  plus  or  minus  (♦,  -) 

Exponentiation  (**) 

Multiplication,  division  (*,/) 

Addition  or  subtraction  (t,  -) 

Assi  gnmen  t  ( :  =) 

Riqht  parenthesis 
Left  parenthesis 

A  series  of  relative  comparisons  result  in  the  proper 
sequence  of  operators.  A  left  parenthesis  is  always  pushed 
onto  the  stack.  When  the  stack  is  empty  the  operator  is 
pushed  onto  the  stack.  Plus  and  minus  signs  must  be  checked 


u  r.  a  r  v 
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to  let-'rm ine  if  they  are  unary  or  binary  operators.  tlnarv 
pluses  ire  disreqardei  while  each  unary  minus  neqat^s  its 
operand  token.  Pemaininq  operator  ’■okt  ns  are  compare  1  wi*! 
rhe  token  at  the  top  of  the  stack.  It  the  stack  token  is  of 
equal  or  hiqher  precedence,  it  is  output  and  another  romtari- 
son  is  made  with  the  new  top  of  the  stack  token.  When  the 

input  token  is  of  hiqher  precedence  and  i  riiht  parenthesis, 

then  the  stack  token  must  be  a  left  parenthesis,  so  hot!  are 

discarded.  In  other  cases  when  the  input  token  is  of  hiqher 

precedence  it  is  pushed  onto  the  stick  and  the  next  token  is 
fetched. 


Th°  simple  assiqnmer.t  clause  has  four  possible  delimit¬ 
ers  ho  mark  its  end.  A  second  Iw-toker  indicates  a  nos-ed 
IF-THEN  situation  and  a  relational  expression  will  fellow. 

An  ELSF-token  marks  the  end  of  the  THEN’  assignment  clause 
which  will  be  followed  by  an  ELSE  assiqnmer.t  clause.  The 
tokens  'JOSAVE  and  COMMENT  are  special  tokens  to  denote  the: 
end  of  the  full  assiqnment  clause.  when  any  of  these  delim¬ 
iters  are  encountered,  the  s^ack  is  moved  to  output  and  an 
internal  end  delimiter  is  placed  in  the  output  stream. 

POSTFX  then  calls  BLDTCP  to  cenver*  the  postfix  assi  qr  meni- 
clause  into  ordered  triples. 

Subroutine  BLDTBP  builds  triples  from  the  postfix  ex¬ 
pression.  Piqure  5  is  vhe  flow  chart  for  BLdTRP.  llsiri 
while-lo  construct,  the  underlyinq  loqic  is  "while  the  *-.ck“r: 


Figure  5.  Flow  Chart  For  BLI1TRP 


2  '* 

is  rat  the  internal  f  nd  delimiter,  in  place  the  operators 
and  opet  inis  into  the  proper  position  in  the  array  of 
or  i  >re  i  tr iples". 

The  postfix  token  string  is  parsed  until  an  operator  i;, 
foun  1,  That  operator  and  the  preceding  two  operands  (one 
operand  for  function  operators  which  are  unary  operators) 
are  placed  into  the  triple  array.  Aft©r  beir.  i  laser*  =  d  in 
the  r  ripLe,  a  zero  replaces  operator  tokens  in  the  postfix 
string.  This  step  will  prevent  any  attempt  to  use  the  same 
operator  twice.  It  should  alsc  be  noted  that  the  interim 
result  of  a  triple  (an  operator  and  its  respective  operands) 
may  b°  the  operand  for  a  subsequent  triple.  Thus  the  ripr.* 
operand  in  the  postfix  string  is  replaced  with  a  F0n  cor  ii  and 
to  3 ->note  the  interim  result  of  a  preceding  triple  is  to 
be  popped  from  a  stack.  (During  execution,  interim  triple 
results  will  be  automatically  pushe  i  onto  a  stack  for  later 
ust*.)  After  the  second  operand  is  placed  ir.  the  triple  a 
zero  is  placed  in  its  position  in  the  postfix  strir.  r  *o  pre¬ 
clude  that  operand  ftem  beina  use  3  a  second  fime. 

The  subroutine  then  finalizes  seme  addresses  within  th« 
ordered  triples.  The  conditional  branch  for  a  false  rela¬ 
tional  expression  (false  IF  condition)  is-,  giver  the  address 
of  the  present  triple  plus  two  (the  beo  inn  i  r.  7  of  the 
clause)  .  The  next  triple  is  qiven  jr  uncord i t i n a  1  branch  to 
the  en  1  of  the  full  assipnment  clause.  As  only  one  assi  m- 
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inent  cl* us-  is  to  he  execute,  each  clause  is  followed  with 
a  branch  to  th  -*  end  of  the  last  assignment  clausa.  r  =  Ciiist 
tnat  a  idress  is  not  known  yet,  +  he  address  of  ♦  he  »n  l  cf  r  ic 
simple  assignment  clause  is  retain-d  and  the  final  "or.l" 
address  is  inserted  in  each  in  a  wrap-up  procedure  i  r.  (.'TRIPS 

Boolean  Expression 

The  Boolean  expression,  as  discussel  in  chapter  2, 
consits  of  a  series  of  relational  expressions  which  are 
operands  of  logical  operators.  T'n-y  have  the  same  possible 
syntax  is  the  full  assignment  clause  relational  expressions 
presented  earlier.  The  tek-ns  IN  and  NOT  IN  and  th»ir  4 roup 
i  lent  if  ier  are  also  possible  operands,  indicating  <1  a  *  .a  is  *  r> 
be  either  selected  from  the  specified  group  of  columns  of 
the  data  base-  or  selected  from  columns  not  within  *h^  speci¬ 
fied  qrouu.  Parentheses  may  also  be  used  nD  modify  the 
precedence  of  operators  or  to  imniovo  un  ierst  a  nda  hi  1  i  y  of 
the  expression.  An  example  of  a  proper  Boolean  expression 
might  be 

IN  G 1  .AND.  T1  =  3  .AND.  (T2  <  =  2  .OR.  T2  >  S)  . 
After  transforming  this  expression  into  postfix  notation 
it  woul  1  appear  as 

IN  G 1 ,  T 1  =  3,  .AND.,  T  2  <  =  2,  T2  >  S,  .OR.,  .AND. 
The  string  of  tokens  in  postfix  ori  m  must  now  be  converted 
in*o  ordered  triples  for  efficient  execution.  The  desirad 


ordered  tr  iples  for  the  pr-»ceciin-i  expression  ir>-  is  "o’lcw: 


'tow 

Operator 

Creran  1  1 

0 pe  rand 

1 

TN 

0 1 

;; 

StJ  F 

?  1 

i 

) 

BNP 

non 

(M 

4 

ADC 

0 

1 

s 

E 

(7) 

fy 

ADC 

0 

0 

7 

AND 

d 

SUE 

V  2 

4. 

4 

EP 

non 

(12) 

10 

ACL 

0 

1 

1  1 

B 

(1  1) 

1  2 

ADD 

0 

1  J 

SUE 

T  2 

5 

1  4 

EH7, 

POP 

(17) 

1  5 

Arc 

0 

1 

16 

R 

(Id) 

1  7 

ADC 

0 

0 

18 

CR 

1  4 

AND 

2  0 

SETMSK 

P  DP 

SEL’EC 

Durinq  execution  cf  thj  above  triples  the  r e  1  =1  "  i 01. 1 1 
evaluations  and  "ho  conditional  an!  unconditional  hnrcrte 
function  identical  tc  those  explain-!  previously  wi*L  the 
full  assignment  clause.  The  in  qroup  operand  will  cause  a 
on°  to  he  pushed  onto  a  stack  if  the  ^roup  exists,  otherwise 
a  zero  will  be  pushed.  The  "A)!)  0  1"  triple  is  ^x-cut^  I 

if  "he  relational  expression  is  Ur  and  will  cause  a  one 
to  ba  pushed  onto  the  stack.  For  a  false  relational  expres¬ 
sion,  the  "ADD  0  0"  triple  is  executed,  causinq  a  zero  to 

be  pushed  onto  the  stack.  The  AND  triple  will  pop  "he  stack 
twice  anl  if  thorp  are  two  ones,  a  one  is  pushed,  c"herwis- 
a  zero  is  pushed.  Similarly,  OP  pops  th°  stack  twice  and 


pushes  a  one  if  at  leas"  cne  of  the  pops  is  a  one 


mow  2  0 


-so  *  -3  i  aasx  or  f  la  7  *o  cup  if  t  h  Hoc.  1  -an  ex  pi  e  s.sion  j  c 
true,  o  *  h  e  r  w  i  s  •-?  a  ifin  is  so*. 

Otiviou  sly  there  art  many  sia  il ar l *  i“i»  hot  w-*  ■>!.  \  'i  i  »  i  i  r. 
ordered  *r  iplos  for  Dec  lean  and  arithmetic  -xpr^;  .-i  ki.;. 
However  r.uff  ici-nt  differences  ox  is*  *  o  war  ran  *  3-?;-  K'it  ~- 

rnu*  in^s.  To  nrecluda  excessive  re  pet  ition  ,  t  h  •*  i<=  re:  i  :  t  i 
of  *ho  fall  assignment  c  la  a  so  modules  will  ho  uf-  i  a  •-  i  l  i 
lino  ar.i  only  the  significant  di  *  ferences  for  Boolean  «  x  r  r 
.3  ions  will  be  explained  in  this  see  tic:.. 

Wr.->n  i  Boolean  expression  is  *  >  lo  *  ra  i.s  1  a  *e  d  ,  *h-'  ;m 


program  will  call  subroutine  FSTPV  '> ,  a  srx  l* 


or  nano  r o r 


"postfix  select".  The-  flow  char*  f  ?r  this  subroutine  is  * 
sat---  as  *  h a  t  of  POST  FX  (Figure  a)  w  r*  1.  minor  -->xcepti  onr  of 
ielimiters,  opera*  or. s,  and  ope  i  an  f;.  Tu-  t  ok  mis  nob  av  an 
FtEIAKK  ire  f  h  or.lv  lelirait  ops  for  * Boolean  expression. 


The  precedence  of  possible  operators  from  hi  ih.es* 


B  i  q  h  *  parenthesis 
Left  parenthesis. 

The  operands  for  the  Boolean  expression  a l e  more  than 
on3  token  in  lenqth.  Consequently  the  routine  recognizes 
each  por*ion  of  an  operand  (unary  plus  or  minus,  cons* an*, 
variable,  relational  operator,  IN,  NOT,  ir.d  group)  and  u  ov 


them  di rect ly  to  the  output  string.  Cnee  the  express  ion  i- 


convert*- 1  to  postfix  notation,  a  i *co uniza!  le  f  nl  i  ?  I  i  n i - ‘ ; 
is  plac'd  in  tho  st  rim  an.i  subrout  in*'  TQIILS  is  cal  It  i. 

Subroutine  TF  IF  LS  (Fi  jure  k)  accent. 5  *  r Feel- in  -  xrr 
sio:.  in  postfix  notation  ani  arranges  tho  tokens  into  o  r  i  ->  r  :• 
triples.  A  jain  there  are  similari*  as,  yet  ii  f  f  e:  enc  •=  - ,  wve, 
comparing  subroutines  IRIPLS  an  1  3LCTFP. 

The  postfix  strinq  is  parse!  an!  th*»  tok  >ns  id^n*  i  f  i-  i. 
Logical  operators  (.and.,  .CP.)  a  r*  sieved  airec-lv  *  c  t;.- 
trinle  an  1  the  next  token  is  fetch*  ! .  The  operand  3  IN  and 
NOT  IN  along  vi*h  the  q  roup  identifier  are  placed  in  *-.v 
triples.  No  branch  conditions  are  required  since  * u  execu¬ 
tion  phase  will  determine  whether  t  he  se  operands  ar *  'rue  or 
false,  pus  him  a  one  or  zero  as  appropriate  onto  the  stack. 
The  only  other  token  type  is  a  logical  operanl  of  'tree 
tokens  voice  form  a  relational  expression.  ?h°  suh*rac- 
cod>  will  be  placed  in  the  triple  followed  by  the  -wc 
relational  operands.  The  next  triple  will  get  a  conditional 
branch  based  on  a  false  relational  expression.  A  on*  or 
zero,  depending  on  a  true  or  false  relational  expression,  is 
pushed  onto  th*  stack.  Finally  the  triples  must  provide  for 
evaluating  the  entire  Fcolean  expression  is  evaluated.  To 
do  this  the  stack  is  popped.  A  on*  indicates  a  fni°,  a  zero 
a  false  expression,  A  flag  (5FTXSK)  is  set  to  reflect  this 
condition.  Now  that  the  triples  are  c c ran  1 1 ♦ *  i ,  TFIFLS 


ret.  urns 


to  PSTFX3  which  returns  t0  i»s  call  in  3  modul' 


Av  this  point,  the  routines  to  tnn.itcio  vh-  f  u '  1 
assignment  clause  and  Fcolean  °xpr*»t  Kions  into  orl-'i  ^ 
triples  have  been  fully  discussal.  nr  xt  chap*  or , 

chanter  r>,  will  conclude  this  paper. 


CC  NC  LUST  r 


This  project  has  been  successful  in  developing  *bo 
desired  proqrams.  Several  nryim  so -  s  of  da4- a  have  h-'-:. 
processed  and  the  desired  results  have  beer,  o  b *  a  i  n«  d  .  T* 
should  b->  emphasized,  however,  t  h  a  *  th-  proqrams  are  quit-* 
sensitive  to  receivinq  syntactically  correct  input.  I  -  was 
assumed  in  the  specifications  that  the  tokens  would  !  e 
edited  and  checked  for  correct  syntactic  order  betore  beinu 
oroc-ssal  into  ordered  triples.  Consequently,  these 
programs  have  a  very  lew  tcleranc  *  to  erroneous  inout. 

pOHTH  A  V  was  specified  as  Mie  pr  oq  r  a  rr  mi  n  7  lanquaqc  in 
order  to  enhance  transportability.  A Ndl  FORTRAN  is 
generally  considered  tc  be  an  unstructured  lamuaqe  sine-1 
its  only  means  of  chanainq  the  ordar  of  execution  o r 
statements  from  sequential  is  with  <10  TOs  and  hk.°  DO-loop. 
However,  it  was  possible  to  provide  a  perception  cf 
structure  *0  the  proqrams.  This  was  accom pli she  1  ny  a 
carefully  structured  use  of  comments  and  precise  ind-ntation 
of  comments  and  executable  statements.  The  rasultim  code 
is  more  understandable  than  mest  FORTRAN  proqrams. 

The  most  difficult  aspect  of  the  project  was  i<*fininq 


4 


1 


<7 

and  understanding  the  speci f  icat  ions  and  requi  r*-  aenr  s  of  t:.  e 
pro ject .  Nearly  all  of  the  ccmmunica  f  ion  was  oral  wj  ich  may 
ho  subject  to  liffere-nt  interp  ra  +  af  ior.  anc  may  often  b.. 
forgotten  or  take  or.  different  tr.oar.inar  after  a  per  i  o  !  >? 

time.  Further,  the  author  was  not  involvea  in  the  ovtl  i..l 
COT) A?  project,  thus  initially  did  no1-  have  the  btcal 
perspective  of  the  coosr  system.  with  a-ter.t  ion  i  or 

only  the  poblem  at  hand,  it  was  often  more  difficult  *-o 
unlerstanl  the  need  and  reason  for  certain,  specifications. 
Finally,  the  specifications  were  not  precisely  available  a- 
the  start  of  the  project.  Specifications  are  normally 
developed  or  modified  as  the  project  proir esses,  as  was  *r u* 
in  this  situation.  As  experienced  in  probably  all  software 
development  projects,  *-Y/i  specifications  evolve  and  change 
as  time  passes,  the  users  think  of  o‘  he  r  requirements  and 
pecu  liarit  ies,  and  the  designers  perceive  r.ew  and  expandino 
capa  bilites.  Real  world  experiences  encountered  in  t^- 
project  will  certainly  be  of  significant  value  to  the 
author. 


Future  Efforts 

Although  the  subroutines  level oped  function  acrcr  i  ini 
to  the  specifications,  additional  improvements  couH  still 
be  added.  Separate  subroutines  were  developed  for 


transforming  the  input  tokens  into  nostfix  notation 


t  h  e  n 


d 

into  or  l«re  1  trip  les.  The  separate  subroutines  w-’t-  cnoser 
to  break  *he  overall  crcblem  down  into  smaller,  more 
manaaeablc  problt-ms  find  tc  make  ‘•hem  small  enough  - o  be 
easily  understood.  This  does,  hoK^vor,  increjs*  the 
computer  overhead  devoted  to  linking  the  various  subroutine 
together.  Algorithms  exist  (1,6)  to  convert  an  infix  toker 
string  directly  into  ordered  triples.  A  comparison  between 
the  length,  complexity,  and  execution  efficiency  cf  the  -«c 
me *■  hods  may  be  enlightening. 

A  second  area  for  future  study  concerns  the  ordered 
triples  constructed  frcm  the  Boolean  expression.  Th» 
Boolean  expression  is  composed  of  a  series  of  lojical 
operators  (.AND.,  .OP.)  and  the  associated  operands.  Ac 

developed,  the  entire  set  of  triples  must  be  executed  to 
determine  the  result  of  the  <=  x pre s.sio  r. .  However,  for 
certain  sequences  of  operators,  it  can  be  determined  *hat 
the  expression  is  false  before  the  entire  expression  is 
evaluated.  This  would  te  desirable  since  there  is  nc  ne-i 
to  evaluate  the  remainder  of  the  expression  once  th°  filial 
results  have  already  been  determined.  Being  able  tc  t *op 
the  expression  evaluation  once  its  results  have  been 
determined  would  save  execution  tim-».  But  davelopinj  rh<> 
algorithm  to  insert  the  proper  branches  into  the  trifles  is 
not  an  easy  problem,  considering  the  various  possible 
sequences  of  operators  and  how  parentheses  are  used  *o 


change  the  the  normal  precedence  of  execution.  Such  an 
optimizing  step  would  likely  reguiro  the  tokens  to  he 
scanned  several  times  while  developing  the  possible  paths 
through  the  Boolean  expression.  Due  to  the-  cc  m  plex  i  t  y  ,  such 
an  optimizing  effort  cculd  likely  result  in  errors  as  are 
sometimes  enco utered  with  ccmmerc ia 1  optimizing  compilers. 
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APPENDIX  A 


SYNTAX  GRAPHS 


Boolean  Expression  Syntax  Graph 


Relational  Expression  Syntax  Graph 


USER’S  dll  10; 

The  m  •>  dules  arc  :i®5  iqu- 1  *0  rcc-*pt  1:.  incut  irr  w  ->r 
110  rck^ns.  If  it  is  d  e  *•  e  r  t  i  n  e  i  thi*  longer  cctina  r.  I mill 
be  u  5<?  i,  the  arrays  INPUT  an  1  C'!  r°'JT  will  n  .•>•>  d  *  >  h<- 
dimension*?  i  to  a  larger  size  in  ill  subroutines.  .VI  ir  in, 
ally,  t  he  matrix  which  returns  the  or 'l-5  red  *  r  i  p  i  g  s ,  TRIFLE 
may  need  to  be  enlarged.  Its  pr  ?.sen“  size  is  8  0  by  1 . 

A  stack,  is  used  in  the  subrout  ir.es  PCSTFZ  and  ’> ? T ;  X :> 
to  temporarily  held  operators  while  M..~  /  are  being  r *  or  d-?r 
el  troin  infix  to  postfix  notation .  The  stack  size  i  --  jn. 
It  is  conceivable:,  although  unlikely,  for  very  leng  string 
o£  in  out  tokens  and  with  certain  arc  an  jraen’s  of  opera¬ 
tors,  oo>rands,  and  parentheses,  for  ‘h“  stack  to  overflow 
Tf  this  should  occur,  the  stack  si/-*  should  be  increase!. 

PPT’LVL  is  an  integer  parameter  which  p-rmi*-s  printing 
out  interim  data  for  maintenance  or  debugging  purposes. 

For  a  value  of  zero,  the  postfix  string  of  tokens  and  th  » 
completed  ordered  triples  are  printed. 

The  tokens  must  be  in  proper  syntactic  order  when 
passed  to  these  subroutines.  The  specifications  were  for 
other  modules  to  do  the  editing  an!  syntax  checkin  1.  The 
designed  subroutines  have  little  fault  tolerance  eor 
imoroper  tokens  or  incorrect  token  ord-r. 
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4 (.  00  1 
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.  OR  . 
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SC  00  3 
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5C  00  4 

r  i  4  n  t  parentheses  •)’ 
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5  0  00  6 
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SC  00  7 

divide  V 

SC  00  3 

multiply  ' * ' 
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Funct ions 

60002 
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Viria ales 

70000-109999 
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IN 

141607 
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THEN 
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ez 
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50  014 
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EM 
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BP 
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B 
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A  CD 

push  or.^n  stack 

5001  9 

POP 

pop  frem  stack 

50020 

SETMSK 

set  *hc-  mask 

50  C  2  1 

.AND. 

loqical  and 

5  C  02  2 

.OR. 

1 oq i ca 1  or 

5002  J 

IN 

in  pro up  or  module 

50024 

NOT  IN 

not  in  croup  or  modul 

5002  5 

CREATE 

create  new  data 

50026 

SELECT 

select  from  data  bast 
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SUBROUTINE  CTRIPS  < INPUT,  PRTLVL,  TRIPLE) 


xxxxx 

X 

X 

X 

X 

X 

xxxxx 

XXX 

xxxxx 

xxxxx 

X 

X 

X 

X 

X 

X  X 

X 

X 

X 

xxxxx 

X 

xxxxx 

XXXXX 

X 

X 

X 

x 

X 

X 

X 

xxxxx 

X 

X 

x 

XXX 

X 

xxxxx 

********  FUNCTION  OF  NODULE  ******** 

CTRIPS  IS  THE  CONTROL  NODULE  WHICH  ACCEPTS  A  STRING  OF  TOKENS 
WHICH  FORM  THE  FULL  ASSIGNMENT  CLAUSE  AND  CALLS  THE  NODULES 
WHICH  CONVERT  THE  STRING  INTO  ORDERED  TRIPLES  FOR  EXECUTION. 

********  PROCEDURE  FOLLOWED  ******** 

THE  FIRST  TOKEN  IS  CHECKED  TO  DETERMINE  WHAT  IT  IS.  FOR  AN  'IF' 
TOKEN,  THE  RELATE  SUBROUTINE  IS  CALLED  TO  PLACE  THE  TOKENS  OF  THE 
RELATIONAL  EXPRESSION  INTO  THE  ORDERED  TRIPLE  ARRAY.  FOLLOWING 
THE  RETURN  FROM  RELATE  (OR  IMMEDIATELY  IF  THERE  IS  NO  RELATIONAL 
EXPRESSION)  POSTFX  SUBROUTINE  IS  CALLED  TO  REORDER  THE  INFIX 
ASSIGNMENT  CLAUSE  INTO  A  POSTFIX  ASSIGNMENT  CLAUSE. 

POSTFX  CALLS  BLDTRP  WHICH  PLACES  THE  POSTFIX  ASSIGNMENT  CLAUSE 
INTO  THE  ORDERED  TRIPLE  ARRAY  BEFORE  RETURNING  TO  THIS  NODULE. 
REPEATED  CALLS  OF  THE  RELATE  AND  POSTFX  SUBROUTINES  HAY  BE  NADE 
TO  HANDLE  NUMEROUS  RELATIONAL  AND  ASSIGNMENT  CLAUSES. 

********  SUBROUTINES  CALLED  ******** 

RELATE-NOVES  TOKENS  OF  RELATIONAL  EXPRESSIONS  TO  THE  TRIPLE  ARRAY 
POSTFX-CHANGES  TOKENS  OF  ASSIGNMENT  CLAUSES  INTO  POSTFIX 

ORDER;  THEN  CALLS  BLDTRP  WHICH  PLACES  THOSE  TOKENS  INTO 
THE  TRIPLE  ARRAY 

********  VARIABLE  DECLARATIONS  ******** 

PARAMETERS 

INPUT  -INTEGER  ARRAY,  LENGTH  100,  FOR  PASSING  TOKENS 
PRTLVL-INTEGER,  VARIALBE  TO  ALLOW  PRINTING  OF  EXTRA  INFORMATION 
WHICH  SHOULD  BE  HELPFUL  IN  MODIFYING  OR  DEBUGGING  THE 
SYSTEM 

TRIPLE-INTEGER  ARRAY,  SIZE  BO  BY  3,  FOR  RETURNING  ORDERED  TRIPLES 


INTEGER  INPUT ( 100) ,  PRTLVL,  TRIPLE(80,3) 
C 
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47. 

48. 

49. 

50. 

51. 

52. 

53. 

54. 

55. 

5  6. 

57. 

58. 

59. 
00. 
01. 
02. 
03. 
04. 
05. 
05.1 
05.2 
05.3 
05.4 
00. 
07. 
08. 
09. 

70. 

71. 

72. 

73. 

74. 

75. 
70. 

77. 

78. 

79. 

80. 
81. 
82. 

83. 

84. 

85. 
80. 

87. 

88. 

89. 

90. 

91. 

92. 

93. 


C  LOCAL  VARIABLES 
C 

C  BRADDR-INTEGER  ARRAY,  LENGTH  20,  HOLDS  INTERNAL  ADDRESS  OF  TRIPLE 
C  ROUS  UHICH  WILL  GET  UNCONDITIONAL  BRANCH  70  END  OF  TRIPLES 

C  INPNT  -INTEGER,  POINTS  TO  TOKENS  IN  THE  INPUT  VECTOR 

C  NUHBX  -INTEGER,  COUNTS  THE  NUMBER  OF  PLACES  FOR  UNCONDITIONAL 

C  BRANCH  TO  END  OF  TRIPLES,  INCREMENTS  THE  BRADDR  ARRAY 

C  OUTPNT-INTEGER,  POINTS  TO  LAST  TOKEN  IN  OUTPUT  VECTOR 
C  OUTPUT-INTEGER  ARRAY,  LENGTH  100,  FOR  PASSING  POSTFIX 

C  ASSIGNMENT  CLAUSE 

C  RENBER-INTEGER,  SAVES  INTERNAL  ADDRESS  OF  TRIPLE  ARRAY  TO  INSERT 
C  ADDRESS  FROM  BLDTRP  SUBROUTINE 

C  TRPROU-INTEGER,  POINTER  TO  ROUS  OF  THE  ARRAY  OF  ORDERED  TRIPLES 
C 

INTEGER  BRADDR (20 ) ,  INPNT,  NUMBX,  OUTPNT,  OUTPUT(IOO),  RENBER, 

&  TRPROU 

C 

C**  ******  EXECUTABLE  CODE  ******** 

C 

INPNT  *  1 
NUMBX  *  0 
REMBER  =  0 
TRPROU  *  0 

C  IF  THE  FIRST  TOKEN  IS  'IF'  THEN  CALL  SUBROUTINE  RELATE 
IF  (INPUT(INPNT).NE. 140805)  GQ  TO  80 
70  INPNT  *  INPNT  +  1 

CALL  RELATE  (INPNT,  INPUT,  RENBER,  TRIPLE,  TRPROU) 

C  END  OF  IF 
C 

CALL  POSTFX  (BRADDR,  NUNBX,  INPNT,  INPUT,  OUTPUT,  PRTLVL, 

1  RENBER,  TRIPLE,  TRPROU) 

C 

C  IF  THE  NEXT  TOKEN  IS  'IF'  (NESTED  IF-THEN  CLAUSE) 

C  THEN  CALL  SUBROUTINE  RELATE 

IF  ( INPUT ( INPNT ) .EG . 1 40805 )  GO  TO  70 
C  END  OF  IF 

80  CALL  POSTFX  (BRADDR,  NUMBX,  INPNT,  INPUT,  OUTPUT,  PRTLVL, 

2  REMBER,  TRIPLE,  TRPROU) 

C  IF  INTERNAL  TRIPLE  ADDRESSES  ARE  INCOMPLETE 
IF  (NUMBX. EQ.O)  GO  TO  100 
C  REPEAT 

G  PLACE  THE  SAVED  TRIPLE  ROU  ADDRESS  IN  THE  PROPER  PLACES  AS  THE 
C  OBJECTS  OF  THE  UNCONDITIONAL  BRANCHES. 

DO  90  K  =  1,  NUMBX 

90  TRIPLE (BRADDR(K) ,3)  »  TRPROU  ♦  1 

C  END  OF  REPEAT 

C  END  OF  IF 
C 

C  IF  PRTLVL  *  0  URITE  OUT  THE  ORDERED  TRIPLES 
100  IF  (PRTLVL. NE.O)  GO  TO  200 

N  «  TRPROU 
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DO  110  TRPROU  a  1,N 

110  WRITE  (4,510)  < TRIPLE (TRPROU, J),  J  »  1,  3) 

C  END  OF  IF 

510  FORMAT  ('  ',  T10,  17,  T25,  17,  T40,  17) 

400  RETURN 
END 


CfEJECT 
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1.  SUBROUTINE  RELATE  (INPNT,  INPUT,  REHBER,  TRIPLE,  TRPROU) 

2.  C 

3.  C  XXXXX  XXXXX  X  X  xxxxx  xxxxx 

4.  CXXX  X  XX  XX 

5.  C  XXXXX  VXXX  X  XXX  xxxx 

6.  CXXX  X  xxxxx  X  X 

7.  C  X  X  XXXXX  XXXXX  XXX  xxxxx 

8.  C 

9.  c********  FUNCTION  OF  NODULE  ♦***+*♦* 

to.  c 

11.  C  RELATE  SCANS  THE  INPUT  STACK  OF  TOKENS  AND  CHANGES  THOSE  IN  A 

12.  C  RELATIONAL  EXPRESSION  INTO  ORDERED  TRIPLES  WHICH  ARE  OUTPUT  IN 

13.  C  AN  ARRAY. 

14.  C 

15.  c********  PROCEDURE  FOLLOWED  ******** 

16.  C 

17.  C  INPUT  RELATIONAL  EXPRESSIONS  ARE  RESTRICTED  TU  THE  FOLLOUINO 

18.  C  FORMAT:  1.  OPTIONAL  STRING  OF  UNARY  PLUSES  AND/OR  NINUSES; 

19.  C  2.  CONSTANT  OR  VARIABLE  IDENTIFIER; 

20.  C  3.  RELATIONAL  OPERATER; 

21.  C  4.  OPTIONAL  STRING  OF  UNARY  PLUSES  AND/OR  MINUSES; 

22.  C  5.  CONSTANT  OR  VARIABLE  IDENTIFIER. 

23.  C  UNARY  PLUSES  ARE  DISREGARDED.  UNARY  NINUSES  ARE  ACCUMULATED 

24.  C  AND,  IF  THERE  ARE  AN  ODD  NUMBER  OF  THEM,  THE  CONSTANT  OR  VARIABLE 

25.  C  TOKEN  IS  CHANGED  TO  A  NEGATIVE  VALUE.  THE  FIRST  CONSTANT  OR 

26.  C  VARIABLE  IS  PLACED  IN  THE  SECOND  COLUMN  OF  THE  TRIPLE  ARRAY, 

27.  C  THE  RELATIONAL  OPERATOR  IN  THE  FIRST  COLUMN,  AND  THE  SECOND 

28.  C  CONSTANT  OR  VARIALBE  IN  THE  THIRD  COLUMN. 

29.  C 

30.  c  *******  *  VARIABLE  DECLARATIONS  **•***».» 

31.  C 

32.  C  PARAMETERS 

33.  C 

34.  C  INPNT  -INTEGER,  POINTS  TO  TOKENS  IN  THE  INPUT  VECTOR 

35.  C  INPUT  -INTEGER  ARRAY,  LENGTH  100,  FOR  PASSING  TOKENS  TO  THIS 

36.  C  MODULE 

37.  C  REMBER-INTEGER,  SAVES  INTERNAL  ADDRESS  OF  TRIPLE  ARRAY  TO  INSERT 

38.  C  ADDRESS  FROM  BLDTRP  SUBROUTINE 

39.  C  TRIPLE-INTEGER  ARRAY,  SIZE  80  DY  3,  FOR  RETURNING  ORDERED  TRIPLES 

40.  C  TRPROW-INTEGER,  POINTER  TO  ROUS  OF  THE  ARRAY  OF  ORDERED  TRIPLES 

41.  C 

42.  INTEGER  INPNT,  INPUTUOO),  REMBER,  TR1PLE(80,3) f  TRPROU 

43.  C 

44.  C  LOCAL  VARIABLES 

45.  C 

46.  C  MINUS  -INTEGER,  UNARY  MINUS  OPERATOR  TOKEN  50006 
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47.  C  PLUS  -INTEGER,  UNARY  PLUS  OPERATOR  TOKEN  5000S 

48.  C  POP  -INTEGER,  OPERATOR  UHICH  NAY  BE  INSERTED  INTO  THE  ORDERED 

49.  C  TRIPLE  ARRAY  FOR  POPPING  RESULT  FRQH  A  STACK 

50.  C  RELOPS-INTEGER  ARRAY,  SIZE  2  BY  6,  HOLDS  RELATIONAL  OPERATOR  AND 

51.  C  BRANCH  CODES.  THE  OPERATOR  CODES  INSERTED  INTO  THE  ORDERED 


52. 

C 

TRIPLE  ARRAY 

ARE: 

53. 

C 

INPUT 

RELATIONAL 

BRANCH 

BRANCH 

54. 

C 

TOKEN 

OPERATOR 

CONDITION 

CODE 

55. 

C 

30001 

.EQ. 

BHZ 

50011 

56. 

c 

30002 

.NE. 

BZ 

50012 

57. 

c 

30003 

.GT. 

DMZ 

50013 

58. 

c 

30004 

.LT. 

BPZ 

50014 

59. 

c 

30005 

.GE. 

BH 

50015 

60. 

c 

30006 

.LE. 

BP 

50016 

61.  C  RELPNT-INTEGER,  POINTER  TO  ENTRIES  IN  RELOPS  ARRAYY 

62.  C  TEMP  -INTEGER,  USED  FOR  DETERMINING  IF  TOKEN  IS  A  VARIABLE  OR 

63.  C  CONSTANT 

64.  C  THEN  -INTEGER,  POSSIBLE  INPUT  TOKEN  142408 

65.  C  UHINUS-INTEGER,  UNARY  MINUS  MULTIPLYING  FACTOR 

66.  C 

67.  INTEGER  MINUS,  PLUS,  POP,  R£L0PS<2,6),  RELPNT,  SUB,  TEMP,  THEN, 

68.  S  UHINUS 

69.  DATA  MINUS/50006/,  PLUS/50005/,  POP/5001?/,  RELOPS/30001 ,  50011, 

70.  X  30002,  50012,  30003,  50013,  30004,  50014,  30005,  50015, 

71.  1  30006,  50016/,  SUB/50006/,  THEN/142408/ 

72.  C 

73.  C********  EXECUTABLE  CODE  ******** 

74.  C 

75.  UHINUS  «  *1 

76.  INPNT  =•  INPNT  -  1 

77.  TRPROU  =»  TRPRQU  +  1 

78.  C 

79.  10  CONTINUE 

80.  C  INCREMENT  THE  INPUT  ARRAY  POINTER 

81.  INPNT  «  INPNT  ♦  1 

82.  C  IF  THE  TOKEN  IS  UNARY  PLUS  DISREGARD  AND  GET  THE  NEXT  TOKEN 

83.  IF  ( INPUT (INPNT ) .EQ.PLUS)  GO  TO  10 

84.  C  END  OF  IF 

85.  C 

86.  C  IF  TOKEN  IS  UNARY  MINUS  CHANGE  THE  SI6N  OF  THE  UNARY  MINUS  FACTOR 

87.  IF  (INPUT (INPNT) .NE.HINUS)  GO  TO  40 

88.  UHINUS  -  -  UHINUS 

89.  C  AND  GET  THE  NEXT  TOKEN 

90.  GO  TO  10 

91.  C  END  OF  IF 

92.  C 

93.  40  CONTINUE 

94.  C  IF  TOKEN  IS  A  CONSTANT  OR  VARIABLE 

95.  TEMP  »  INPUT ( INPNT )/10000 

96.  IF  << TEMP. NE.2) .AND. ( (TEMP.LT.7) .OR. (TEMP.GT.9) ) .AND. 

97.  I  <TEHP.LT. 13))  GO  70  400 
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98.  C  THEN  MULTIPLY  BY  UNARY  MINUS  FACTOR  AND  MOVE  THE  TOKEN  TO 

99.  C  COLUMN  TUO  OF  THE  TRIPLE  ARRAY 

100.  TRIPLE(TRPR0U,2)  =  INPUT(INPNT)  *  UMINUS 

101.  C  END  OF  IF 

102.  C 

103.  C  RESET  UNARY  MINUS  FACTOR  TO  POSITIVE 

104.  UMINUS  »  +1 

105.  C  GET  THE  NEXT  TOKEN 

104.  INPNT  =  INPNT  +  1 

107.  C  PLACE  SUBTRACT  CODE  IN  COLUMN  ONE  OF  TRIPLE  ARRAY 

108.  TRIPLE(TRPRQU, 1  >  =  SUB 

109.  C 

110.  C  OBTAIN  THE  PROPER  CODE  FOR  THE  RELATIONAL  OPERATOR 

111.  C  REPEAT 

112.  C  COMPARE  INPUT  TOKEN  UITH  RELATIONAL  OPERATOR  ARRAY 

113.  DO  50  RELPNT  *  1,4 

114.  IF  ( INPUT ( INPNT ) .EQ. RELOPS ( 1 , RELPNT ) )  GO  TO  40 

115.  50  CONTINUE 

114.  C  END  OF  REPEAT 

117.  C 

118.  40  CONTINUE 

119.  C  PLACE  THE  PROPER  BRANCH  CODE,  BASED  ON  THE  RELATIONAL  OPERATOR, 

120.  C  IN  COLUHN  ONE  OF  THE  NEXT  TRIPLE  RQU 

121.  TRIPLE(TRPROU  +1,1)=  REL0PS<2, RELPNT ) 

122.  C  PLACE  'POP'  OPERATOR  IN  COLUHN  TUO  OF  THE  TRIPLE  ARRAY 

123.  TRIPLEITRPROU  ♦  1,  2)  =  POP 

124.  C  RETAIN  THE  TRIPLE  ROU  NUMBER  FOR  LATER  INSERTION  OF  BRANCH  ADDRESS 

125.  REMBER  =  TRPROU  ♦  1 

124.  70  CONTINUE 

127.  INPNT  =  INPNT  +  1 

128.  C  IF  THE  TOKEN  IS  UNARY  PLUS  DISREGARD  AND  GET  THE  NEXT  TOKEN 

129.  IF  (INPUT (INPNT ) .EQ.PLUS)  GO  TO  70 

130.  C  END  OF  IF 

131.  C 

132.  C  IF  TOKEN  IS  UNARY  MINUS  CHANGE  THE  SIGN  OF  THE  UNARY  MINUS  FACTOR 

133.  IF  (INPUT(INPNT).NE. MINUS)  GO  TO  90 

134.  UMINUS  »  -  UMINUS 

135.  C  AND  GET  THE  NEXT  TOKEN 

134.  GO  TO  70 

137.  C  END  OF  IF 

138.  C  ' 

139.  90  CONTINUE 

140.  C  IF  TOKEN  IS  A  CONSTANT  OR  VARIABLE 

141.  TEMP  =  INPUT ( INPNT  )/1 0000 

142.  IF  ((TEMP. NE. 2). AND. ((TEMP. LT. 7). OR. (TEMP. GT. 9)). AND. 

143.  >  (TEMP. LT. 15))  GO  TO  400 

144.  C  THEN  MULTIPLY  BY  UNARY  MINUS  FACTOR  AND  MOVE  THE  TOKEN  TO 

145.  C  COLUMN  THREE  OF  THE  TRIPLE  ARRAY 

144.  TRIPLE(TRPR0U,3)  «  INPUT ( INPMT )  -»  UMINUS 

147.  INPNT  «  INPNT  +  1 

148.  GO  TO  500 
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149.  C  END  OF  IF 

150.  C 

151.  400  CONTINUE 

152.  C  PRINT  ERROR  MESSAGE 

153.  PRINT,  'ERROR — TOKEN  NOT  A  CONSTANT  OR  VARIABLE.  TOKEN  » 

154.  3  INPUT(INPNT) 

155.  TRPROU  =  TRPROU  +  1 

154.  INPN7  =  INPNT  ♦  1 

157.  500  CONTINUE 

158.  TRPROU  =  TRPROU  ♦  1 

159.  RETURN 

160.  END 
141 . 


CtEJECT 


SUBROUTINE  POSTFX  (BRADDR,  NUMBX,  INPNT,  INPUT,  OUTPUT, 
2  PRTLVL,  REMBER,  TRIPLE,  TRPRQU) 


1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 
9. 

10. 

11. 

12. 

13. 

14. 

15. 

16. 

17. 

18. 

19. 

20. 
21. 
22. 

23. 

24. 

25. 

26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 

34. 

35. 

36. 

37. 

38. 

39. 

40. 

41. 

42. 

43. 

44. 

45. 

46. 

47. 


C 

C  XXXXX  XXXXX  XXXXX  XXXXX  XXXXX  X  X 
CXXXXX  XX  XX 

C  XXXXX  X  X  XXXXX  X  XXXX  X 

CX  XX  XXX  XX 

C  X  XXXXX  XXXXX  XX  XX 

c 

C  ********  FUNCTION  OF  NODULE  ******** 

c 

C  POSTFX  TAKES  AN  INFIX  ASSIGNMENT  CLAUSE  AS  INPUT  AND  CONVERTS 

C  IT  INTO  AN  EXPRESSION  OF  POSTFIX  NOTATION  UHICH  IS  OUTPUT. 

C 

C********  PROCEDURE  FOLLOWED  ******** 

C 

C  IF  THE  TOKEN  IS  AN  END  DELIMITER  OR  A  RENARK,  THE  TOKENS  IN  THE 

C  STACK  ARE  OUTPUT  UNTIL  THE  STACK  IS  EMPTY.  IF  THE  TOKEN  IS  '(', 

C  IT  IS  PUSHED  ONTO  THE  STACK.  IF  THE  TOKEN  IS  A  MINUS  SIGN  A 

C  CHECK  IS  MADE  TO  DETERMINE  IF  IT  IS  A  UNARY  MINUS.  IF  IT  IS 

C  A  UNARY  MINUS,  THE  CONSTANT  OR  VARIABLE  TGKEN  ON  UHICH  IT 
C  OPERATES  IS  CHANGED  TO  A  NEGATIVE  VALUE. 

C  IF  THE  TOKEN  IS  A  CONSTANT  OR  A  VARIABLE,  IT  IS  MOVED  DIRECTLY 

C  TO  THE  OUTPUT.  IF  THE  TOKEN  IS  AN  OPERATOR  AND  THE  STACK  IS 

C  EMPTY,  IT  IS  PUSHED  ONTO  THE  STACK.  IF  THE  STACK  IS  NOT  EMPTY, 

C  THE  TOKEN  IS  COMPARED  UITH  THE  TOKEN  AT  THE  TOP  OF  THE  STACK 

C  AND  IF  THE  STACK  TOKEN  IS  OF  EQUAL  OR  HIGHER  PRECEDENCE  IT  IS 
C  MOVED  TO  OUTPUT.  OTHERWISE  IF  THE  TOKEN  IS  BOTH  IT  AND 

C  THE  '('  FROM  THE  STACK  ARE  DISREGARDED.  FINALLY  IF  NONE  OF  THE 

C  ABOVE  CONDITIONS  ARE  TRUE,  THE  TOKEN  IS  PUSHED  ONTO  THE  STACK 
C  AND  THE  NEXT  TOKEN  IS  FETCHED.  TOKEN  ORDER-OF-PRECEDENCE  FROM 
C  LOUEST  TO  HIGHEST  IS  OPENING  PARENTHESIS  '(',  CLOSING  PARENTHESIS 
C  ')',  PLUS  OR  MINUS  SIGN  '+  OR  MULTIPLY  OR  DIVIDE  '*  OR  /', 

C  EXPODENTIATION  UNARY  MINUS,  AND  FUNCTIONS. 

C 

C**  ******  SUBROUTINES  CALLED  ******** 

C 

C  BLDTRP-MOVES  POSTFIX-ORDERED  TOKENS  INTO  ARRAY  OF  ORDERED  TRIPLES 
C 

C***4**«*  I’ TRIABLE  DECLARATIONS  ******** 

C 

C  PARAMETERS 
C 

C  BRADDR-INTEGER  ARRAY,  LENGTH  20,  HOLDS  INTERNAL  ADDRESS  OF  TRIPLE 
C  ROUS  UHICH  UILL  GET  UNCONDITIONAL  BRANCH  TO  END  OF  TRIPLS 

C  NUMBX  -INTEGER,  COUNTS  THE  NUMBER  OF  PLACES  FOR  UNCONDITIONAL 


C  BRANCH  TO  END  OF  TRIPLES,  INCREMENTS  THE  BRADDR  ARRAY 
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48.  C  INPNT  -INTEGER,  POINTS  TO  TOKENS  IN  THE  INPUT  VECTOR 

49.  C  INPUT  -INTEGER  ARRAY,  LENGTH  100,  FOR  PASSING  TOKENS  TO  THIS 

50.  C  NODULE 

51.  C  OUTPUT-INTEGER  ARRAY,  LENGTH  100,  FOR  RETURNING  POSTFIX 

52.  C  ARITHNEIC  EXPRESSION 

53.  C  PRTLVL-1N7EGER,  VARIALBE  TO  ALLOU  PRINTING  OF  EXTRA  INFORHATION 

54.  C  UHICH  SHOULD  BE  HELPFUL  IN  MODIFYING  OR  DEBUGGING  THE 

55.  C  SYSTEM 

5 6.  C  RENBER-INTEGER,  SAVES  INTERNAL  ADDRESS  OF  TRIPLE  ARRAY  TO  INSERT 

57.  C  ADDRESS  FROM  BLDTRP  SUBROUTINE 

58.  C  TRIPLE-INTEGER  ARRAY,  SIZE  80  BY  3,  FOR  RETURNING  ORDERED  TRIPLES 

59.  C  TRPROU-INTEGER,  POINTER  TO  ROUS  OF  THE  ARRAY  OF  ORDERED  TRIPLES 

60.  C 

61.  INTEGER  BRAD0R(20 ) ,  INPNT,  IMPUT(IOO),  NUMBX,  OUTPUT(IOO), 

62.  2  PRTLVL,  REHBER,  TRIPLE(80,3) ,  TRPROU 

63.  C 

64.  C  LOCAL  VARIABLES 

65.  C 

66.  C  ARRPNT-INTEGER,  POINTS  TO  ENTRIES  IN  THE  PRECEDENCE  ARRAY 

67.  C  CPAREN-INTEGER,  POSSIBLE  INPUT  TOKEN  OF  CLOSING  PARENTHESIS 

68.  C  ELSE  -INTEGER,  POSSIBLE  INPUT  TOKEN  142409 

69.  C  MINUS  -INTEGER,  POSSIBLE  INPUT  TOKEN  50006 

70.  C  NOSAVE-INTEGER,  POSSIBLE  INPUT  TOKEN  144002 

71.  C  OPAREN-INTEGER,  POSSIBLE  INPUT  TOKEN  OF  OPENING  PARENTHESIS 

72.  C  OUTPUT-INTEGER,  POINTS  TO  TOKENS  IN  OUTPUT  VECTOR 

73.  C  PLUS  -INTEGER,  POSSIBLE  INPUT  TOKEN  50005 

74.  C  PREC  -INTEGER  ARRAY,  SIZE  2  BY  18,  HOLDS  PRECEDENCE  OF 

75.  C  ARITHMETIC  OPERATORS 

76.  C  PRECS  -INTEGER,  PRECEDENCE  OF  TOKEN  AT  TOP  OF  THE  STACK 

77.  C  „  PRECT  -INTEGER,  PRECEDENCE  OF  TOKEN  CURRENTLY  UNDER  CONSIDERATION 

78.  C  STACK  -INTEGER  ARRAY,  LENGTH  30,  STACK  FOR  PROCESSING  OPERATORS 

79.  C  STKPNT-INTEGER,  POINTER  TO  NEXT  EMPTY  POSITION  ON  THE  STACK 

80.  C  TEMP  -INTEGER,  USED  FOR  DETERMINING  IF  TOKEN  IS  A  VARIABLE  OR 

81.  C  CONSTANT 

82.  C  THEN  -INTEGER,  POSSIBLE  INPUT  TOKEN  142408 

83.  C  UMIMUS-INTEGER,  UNARY  MINUS  MULTIPLYING  FACTOR 

84.  C 

85.  INTEGER  ARRPNT,  CPAREN,  ELSE,  END,  IF,  MINUS,  OPAREN,  OUTPNT, 

86.  2  PLUS,  PREC(2,18>,  PRECS,  PRECT,  STACK(30),  STKPNT ,  TEMP, 

87.  6  THEN,  UNINUS 

88.  DATA  CPAREN/50004/,  ELSE/142409/,  END/50030/,  IF/140805/, 

89.  2  MINUS/50006/,  NOSAVE/144002/,  OPAREN/50003/ ,  PLUS/50005/, 

90.  2  THEN/142408/ 

91.  DATA  PREC/50003,  0,  50004,  1,  50005,  3,  50006,  3,  50007,  4, 

92.  2  50008,  4,  50009,  5,  50010,  2,  60001,  7,  60002,  7,  60003,  7, 

93.  2  60004,  7,  60005,  7,  60006,  7,  60007,  7,  60008,  7,  60009,  7, 

94.  2  60010,  7/ 

95.  C 

96.  c********  EXECUTABLE  CODE  **♦*■*♦** 

97.  C 

98. 


OUTPNT  »  1 


99. 

5  9 

STKPNT  »  1 

too. 

UMINUS  =•  +1 

101. 

C 

IF  THE  TOKEN  IS  "THEN"  OR  "ELSE"  HOVE  IT  TO  OUTPUT 

102. 

IF  ((INPUT(INPNT).NE. THEN). AND. < INPUT ( INPNT) .NE. ELSE))  GO  TO  10 

103. 

OUTPUT  ( OUTPNT)  =  INPUT(INPNT) 

104. 

OUTPNT  =  OUTPNT  +  1 

105. 

GO  TO  20 

106. 

C 

END  OF  IF 

107. 

c 

108. 

10 

CONTINUE 

109. 

INPNT  =>  INPNT  -  1 

110. 

20 

CONTINUE 

111. 

C 

INCREMENT  THE  INPUT  ARRAY  POINTER 

112. 

INPNT  =  INPNT  ♦  1 

113. 

C 

114. 

C 

IF  THE  TOKEN  DELIMITS  THE  ASSIGNMENT  CLAUSE  (NOSAVE,  IF,  ELSE, 

115. 

C 

OR  REMARK) 

116. 

IF  <( INPUTt INPNT ).NE. NOSAVE). AND. ( INPUT ( INPNT ) .NE. 140805) . AND. 

117. 

6  (INPUT ( INPNT ) .NE. ELSE) .AND. ( ( INPUT ( INPNT)/ 10000 ) .NE. 1 ) )  GO  TO  • 

118. 

C 

THEN 

119. 

c 

UHILE  THE  STACK  IS  NOT  EMPTY 

120. 

30 

CONTINUE, 

121. 

IF  (STKPNT.EQ. 1 )  GO  TO  500 

122. 

STKPNT  =»  STKPNT  -  1 

123. 

C 

MOVE  STACK  TO  OUTPUT 

124. 

OUTPUT(CUTPNT)  =  STACK(STXPNT) 

125. 

OUTPNT  =  OUTPNT  +  1 

126. 

GO  TO  30 

127. 

c 

END  OF  UHILE 

128. 

c 

END  OF  IF. 

129. 

c 

130. 

40 

CONTINUE 

131. 

C 

IF  THE  TOKEN  =■ 

132. 

IF  ( INPUT! INPNT ) .NE. OP AREN)  GO  TO  50 

133. 

C 

THEN  PUSH  TOKEN  ONTO  STACK 

134. 

STACK(STKPNT)  *  INPUT ( INPNT) 

135. 

STKPNT  =  STKPNT  ♦  1 

136. 

GO  TO  20 

137. 

C 

END  OF  IF. 

138. 

C 

139. 

50 

CONTINUE 

140. 

C 

IF  TOKEN  IS  A  CONSTANT  OR  VARIABLE 

141. 

TEMP  =  INPUT (INPNT)/10000 

142. 

IF  ((TEMP.NE.2) .AND. ((TEMP.LT.7) .OR. (TEMP.GT.9) ) 

143. 

6  .AND. (TEMP. LT. 15))  GO  TO  60 

144. 

C 

THEN  MULTIPLY  BY  UNARY  MINUS  FACTOR  AND  MOVE  TOKEN  TO  OUTPUT 

145. 

OUTPUT  <  OUTPHT )  =  INPUT < INPNT )*UMINUS 

146. 

C 

RESET  UNARY  MINUS  FACTOR  TO  POSITIVE 

147. 

UMINUS  “  *1 

148. 

OUTPNT  =  OUTPNT  +  1 

149. 

GO  TO  20 

60 


150.  C  END  OF  IF. 

151.  C 

152.  60  CONTINUE 

153.  C  IF  TOKEN  IS  OR  /-/ 

154.  IF  <  < INPUT< INPNT ) .HE . PLUS). AND. < INPUT (INPUT) .NE. MINUS))  GO  TO  80 

155.  C  THEN  IF  THIS  IS  THE  FIRST  TOKEN  OF  THIS  ASSIGNMENT  CLAUSE 

156.  C  THEN  TOKEN  IS  A  UNARY  MINUS  OR  UNARY  PLUS 

157.  IF  (INPNT. Efl.1)  GO  TO  70 

158.  C  END  OF  IF. 

159.  C  ELSE  IF  PREVIOUS  TOKEN  IS  A  FUNCTION  OR  OPERATOR  BUT  NOT  ')' 

160.  C  THEN  TOKEN  IS  A  UNARY  MINUS  OR  UNAPY  PLUS 

161.  TEMP  =  INPUT (INPNT  -  D/10000 

162.  IF  (((TEMP. NE. 5). AND. (TEMP. NE. 6)). OR. 

163.  S  ( INPUT( INPNT- 1 > .EQ.CPAREN) )  GO  TO  80 

164.  C  END  OF  IF. 

165.  C  END  OF  IF. 

166.  70  CONTINUE 

167.  C 

168.  C  IF  TOKEN  IS  UNARY  PLUS  DISREGARD  AND  GET  NEXT  TOKEN 

169.  IF  (INPUT (INPNT ) .EQ.PLUS)  GO  TO  20 

170.  C  END  OF  IF 

171.  C  IF  TOKEN  IS  UNARY  MINUS  CHANGE  SIGN  OF  UNARY  MINUS  FACTOR 

172.  UHINUS  =  -UNINUS 

173.  C  RETURN  FOR  NEXT  TOKEN 

174.  GO  TO  20 

175.  C  END  OF  IF. 

176.  C 

177.  80  CONTINUE 

178.  C  IF  STACK  IS  EMPTY 

179.  IF  (STKPNT.NE. 1 )  GO  TO  90 

180.  C  THEN  PUSH  TOKEN  ONTO  STACK 

181.  STACK (STKPNT)  =  INPUT(INPNT) 

182.  STKPNT  =  STKPNT  +  1 

183.  GO  TO  20 

184.  C  END  OF  IF. 

185.  C 

186.  90  CONTINUE 

187.  C  ASSIGN  PRECEDENCE  OF  OPERATOR  AT  TOP  OF  STACK  TO  'PRECS' 

188.  C  REPEAT 

189.  C  COMPARE  TOKEN  AT  TOP  OF  STACK  WITH  PRECEDENCE  ARRAY 

190.  DO  100  ARRPNT  =1,18 

191.  100  IF  <STACK(STKPNT  -  1 ) .EQ.PRECd , ARRPNT) )  GO  TO  110 

192.  C  END  OF  REPEAT. 

193.  110  PRECS  *  PREC<2, ARRPNT) 

194.  C 

193.  C  ASSIGN  PRECEDENCE  OF  OPERATOR  CURRENTLY  UNDER  CONSIDERATION  TO 

196.  C  'PRECT' 

197.  C  REPEAT 

198.  C  COMPARE  INPUT  TOKEN  UITH  PRECEDENCE  ARRAY 

199.  DO  120  ARRPNT  =  1,18 

200.  120  IF  (INPUT (INPNT). EQ.PRECd, ARRPNT))  GO  TO  130 


201. 

C 

END 

1  OF  REPEAT. 

202. 

130 

PREC7  =  PRFC(2,ARRPNT) 

203. 

C 

2  04. 

C 

COMPARE  PRECEDENCE  OF  TOKEN  AT  TOP  OF  STACK  WITH  INPUT 

TOKEN 

205. 

C 

IF 

PRECS  >  OR  *  PRECT 

206. 

IF  (PRECS.LT. PRECT)  GO  TO  140 

207. 

C 

THEN  MOVE  TOP  OF  STACK  OPERATOR  TO  OUTPUT  AND  COMPARE  TOKEN 

208. 

C 

OPERATOR  TO  NEXT  OPERATOR  IN  STACK. 

209. 

STKPNT  =  STKPNT  -  1 

210. 

OUTPUT(OUTPNT)  =  STACK(STKPNT) 

211. 

OUTPNT  =  OUTPNT  +  1 

212. 

GO  TO  80 

213. 

140 

CONTINUE 

214. 

C 

ELSE  IF  TOKEN  =  ')' 

215. 

IF  ( INPUT ( INPNT) .NE.CPAREN)  GO  TO  150 

216. 

C 

DISREGARD  BOTH  THE  TOKEN  AND  ' ,  AND  GET  NEXT  INPUT 

TOKEN 

217. 

STKPNT  =  STKPNT  -  1 

218. 

GO  TO  20 

219. 

C 

END  OF  IF. 

220. 

150 

CONTINUE 

221. 

C 

ELSE  PUSH  TOKEN  ONTO  STACK 

222. 

STACK(STKPNT)  =  INPUT(INPNT) 

223. 

STKPNT  =  STKPNT  +  1 

224. 

GO  TO  20 

225. 

C 

END 

i  OF  IF. 

226. 

C 

227. 

500 

CONTINUE 

228. 

C 

PLACE  AN  IDENTIFIAIBE  DELIMITER  ONTO  THE  STACK 

229. 

OUTPUT (OUTPNT)  =  END 

230. 

C 

231. 

C 

IF 

PRTLVL  =  0  WRITE  OUT  THE  POSTFIX  ASSIGNMENT  CLAUSE 

232. 

IF  (PRTLVL. EG. 0)  WRITE  (6.505)  (OUTPUT(l),  I  *  1,  OUTPNT) 

233. 

C 

END 

i  OF  IF 

234. 

c 

235. 

CALL  BLDTRP  (BRADBR,  NUNBX,  OUTPNT,  OUTPUT,  REMBER, 

TRIPLE, 

236. 

t 

TRPROU) 

237. 

505 

FORMAT  ('  ',  16(17,  IX)) 

238. 

RETURN 

239. 

END 

240. 

CIEJECT 
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1.  SUBROUTINE  BLDTRP  (BRADDR,  NUMBX,  OUTPNT,  OUTPUT,  RENBER,  TRIPLE, 

2.  i  TRPROU) 

3.  C 


4. 

C 

xxxx 

X 

XXXX 

XXXXX 

XXXXX  XXXXX 

5. 

C 

X 

X  X 

X  X 

X 

X  XXX 

6. 

C 

XXXX 

X 

X  X 

X 

XXXXX  XXXXX 

7. 

C 

X 

X  X 

X  X 

X 

X  X  X 

8. 

C 

XXXX 

XXXXX 

XXXX 

X 

X  X  X 

9. 

10. 

C 

C 

****** 

*  *  FUNCTION 

OF  MODULE  * 

11.  C 

12.  C  BLDTRP  ACCEPTS  THE  VECTOR  OF  ASSIGNMENT  CLAUSE  TOKENS  UHICH  ARE 

13.  C  IN  POSTFIX  ORDER  AS  INPUT  AND  PROCESSES  THEM  INTO  AN  ARRAY  OF 

14.  C  ORDERED  TRIPLES  UHICH  ARE  OUTPUT. 

15.  C 

16.  c  *  *  *  *  *  *  *  *  PROCEDURE  FOLLOUED  ******** 

17.  C 

18.  C  THE  VECTOR  OF  ASSIGNMENT  CLAUSE  TOKENS  IS  PARSED  UNTIL  AN 

19.  C  OPERATOR  IS  FOUND  UHICH  IS  PLACED  IN  THE  FIRST  COLUMN  OF  THE 

20.  C  ARRAY  OF  ORDERED  TRIPLES.  THEN  THE  NODULE  BACKSPACES  IN  THE 

21.  C  ASSIGNMENT  CLAUSE  VECTOR  TO  FIND  THE  OPERAHD(S)  FOR  THAT 

22.  C  OPERATOR.  ONE  OPERAND  IS  REQUIRED  FOR  FUNCTION  OPERATORS  AND 

23.  C  TUO  OPERANDS  FOR  THE  COMMON  BINARY  OPERATORS.  THE  OPERAND(S) 

24.  C  ARE  PLACED  IN  THE  SECOND  AND  THIRD  COLUMNS  OF  THE  ORDERED 

25.  C  TRIPLE  ARRAY.  THE  INPUT  VECTOR  POSITION  OF  THE  OPERAND  OF 

26.  C  UNARY  OPERATORS  AND  THE  SECOND  OPERAND  OF  BINARY  OPERATORS  ARE 

27.  C  REPLACED  IIITH  THE  'POP'  OPERATOR  <113)  UHICH  WILL  POP  THE  TOP 

28.  C  INTERIM  RESULT  FROM  A  STACK  DURING  EXECUTION.  THE  INPUT  VECTOR 

29.  C  LOCATION  OF  OPERATORS  AND  FIRST  OPERAND  OF  THE  DINARY  OPERATORS 

30.  C  ARE  ASSIGNED  A  VALUE  OF  ZERO  TO  INDICATE  THE  OPERATOR  OR  OPERAND 

31.  C  HAS  BEEN  MOVED  TO  THE  TRIPLE  ARRAY.  THE  ARRAY  OF  ORDERED 

32.  C  TRIPLES  IS  RETURNED  TO  THE  CALLING  MODULE. 

33.  C 

34.  c********  VARIABLE  DECLARATIONS  ******** 

35.  C 

36.  C  PARAMETERS 

37.  C 

38.  C  BRADDR-INTEGER  ARRAY,  LENGTH  20,  HOLDS  INTERNAL  ADDRESS  OF  TRIPLE 

39.  C  ROUS  UHICH  UILL  GET  UNCONDITIONAL  BRANCH  TO  END  OF  TRIPLES 

40.  C  NUMBX  -INTEGER,  COUNTS  THE  NUMBER  OF  PLACES  FOR  UNCONDITIONAL 

41.  C  BRANCH  TO  END  OF  TRIPLES,  INCREMENTS  THE  BRADDR  ARRAY 

42.  C  OUTPNT-INTEGER,  BRINGS  IN  POINTER  TO  LAST  TOKEN  IN  OUTPUT  VECTOR; 

43.  C  ALSO  USED  AS  POINTER  IN  OUTPUT  VECTOR 

44.  C  OUTPUT-INTEGER  ARRAY,  LENGTH  100,  FOR  PASSING  POSTFIX 

45.  C  ASSIGNMENT  CLAUSE 

46.  C  REMBER-INTEGER,  SAVES  INTERNAL  ADDRESS  OF  TRIPLE  ARRAY  TO  INSERT 
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47. 

48. 

49. 

50. 

51. 

52. 

53. 

54. 

55. 

56. 

57. 

58. 

59. 

60. 
61. 
62. 

63. 

64. 

65. 

66. 

67. 

68. 

69. 

70. 

71. 

72. 

73. 

74. 

75. 

76. 

77. 

78. 

79. 

80. 
81. 
82. 

83. 

84. 

85. 

86. 

87. 

88. 

89. 

90. 

91. 

92. 

93. 

94. 

95. 

96. 

97. 


C  ADDRESS  FROM  BLDTRP  SUBROUTINE 

C  TRIPLE-INTEGER  ARRAY,  SIZE  80  BY  3,  FOR  RETURNING  ORDERED  TRIPLES 

C  TRPROU-INTEGER,  POINTER  TO  ROUS  OF  THE  ARRAY  OF  ORDERED  TRIPLES 
C 

INTEGER  BRADDR<20) ,  NUHBX,  OUTPNT,  OUTPUT(IOO),  RENBER, 

3  TRIPLE(80,3) ,  TRPROU 

C 

C  LOCAL  VARIABLES 
C 

C  BEGIN  -INTEGER,  KEEPS  POSITION  IN  OUTPUT  VECTOR  UHERE  LAST 
C  OPERAND  UAS  FOUND 

C  END  -INTEGER,  DELIMITER  FOR  POSTFIX  STACK 

C  POP  -INTEGER,  OPERATOR  TO  POP  THE  TOP  INTERIM  ORDERED  TRIPLE 

C  RESULT  FROM  A  STACK 

C  STAKLN-IHTEGER,  STORES  LENGTH  OF  THE  POSTFIX  STACK 

C  TEMP  -INTEGER,  USED  FOR  DETERMINING  IF  TOKEN  IS  A  VARIABLE  OR 
C  CONSTANT 

C 

INTEGER  BEGIN,  BRANCH,  END,  POP,  STAKLN,  TEMP 
DATA  BRANCH/50017/,  END/50030/,  POP/50019/ 

C 

C********  EXECUTABLE  CODE  ******** 

C 


STAKLN  =  OUTPNT 
BE6IN  a  1 
OUTPNT  »  1 
C 

10  CONTINUE 
C  REPEAT 

C  WHILE  THE  TOKEN  IS  NOT  THE  'END'  DELIMITER 
IF  (OUTPUT (OUTPNT) .EQ.END)  GO  TO  500 
C  DO  PARSE  THE  TOKENS,  MOVING  OPERATORS  AND  OPERANDS  INTO  THE 

C  PROPER  PLACE  IN  THE  ARRAY  OF  ORDERED  TRIPLES 

C 

C  REPEAT 

C  PARSE  THE  POSTFIX  VECTOR  UNTIL  AN  OPERATOR  IS  FOUND 

C  STARTING  UHERE  LAST  OPERAND  UAS  FOUND 

DO  30  OUTPNT  =>  BEGIN,  STAKLN 

C  IF  POSTFIX  STACK  DELIMITER  IS  ENCOUNTERED,  STOP  SUBROUTINE 

IF  (OUTPUT (OUTPNT) .EQ.END)  GO  TO  500 
C  END  OF  IF 

TEMP  =  OUTPUT(0UTPNT)/1OO0O 
IF  ((TEMP. EQ. 5). OR. (TEMP. EQ. 6))  GO  TO  40 
30  CONTINUE 

C  END  OF  REPEAT 

C 

40  BEGIN  *  OUTPNT  +  1 

TRPROU  =  TRPROU  +  1 

C  PLACE  OPERATOR  FOUND  IN  FIRST  COLUMN  OF  THE  TRIPLE  ARRAY 
TRIPLE (TRPROU, 1 )  »  OUTPUT(OUTPNT) 

C  BLANK  OUT  THE  POSITION  OF  THE  OPERATOR  TOKEN  IN  THE  POSTFIX  ARRAY 
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98. 

99. 
100. 
101. 
102. 

103. 

104. 

105. 

106. 

107. 

108. 

109. 

110. 
111. 
112. 

113. 

114. 

115. 

116. 

117. 

118. 

119. 

120. 
121. 
122. 

123. 

124. 

125. 

126. 

127. 

128. 

129. 

130. 

131. 

132. 

133. 

134. 

135. 

136. 

137. 

138. 

139. 

140. 

141. 

142. 

143. 

144. 

145. 

146. 

147. 

148. 


OUTPUT(OUTPNT)  -O' 

C  REPEAT 

C  BACKSPACE  IN  OUTPUT  VECTOR  UNTIL  OPERAND  OR  PREVIOUS  TRIPLE 

C  INTERIM  RESULT  IS  FOUND 

DO  50  1=1,  STAKLN 
OUTPNT  =  OUTPNT  -  1 
TEHP  =  I ABS< OUTPUT (OUTPNT) /1 0000) 

IF  ( (TENP.EQ.  2). OR. ((TEMP. GE. 7). AND. (TEMP. LE. 9)). OR. 

3  <TEMP.GE.15).QR. ( OUTPUT ( OUTPNT ) .EQ. POP) )  GO  TO  70 

50  CONTINUE 

C  END  OF  REPEAT 

C 

70  CONTINUE 

C  PLACE  FIRST  OPERAND  IN  THIRD  COLUHN  OF  TRIPLE  ARRAY 
TRIPLE(TRPR0U,3)  =  OUTPUT(OUTPNT) 

C  STORE  ■'POP-'  OPERATOR  IN  THE  POSTFIX  STRING 

OUTPUT (OUTPNT)  =  POP 

C  IF  OPERATOR  UAS  A  UNARY  OPERATOR  (FUNCTION),  THEN  GET  NEXT  TOKEN 
IF  ( ( TRIPLE (TRPR0U,1 ) >710000. EO. 6)  GO  TO  10 
C  ELSE  GET  THE  SECOND  OPERAND 

C  REPEAT 

C  BACKSPACE  IN  OUTPUT  VECTOR  UNTIL  OPERAND  OR  PREVIOUS  TRIPLE 

C  INTERIM  RESULT  IS  FOUND 

DO  90  I  ■  1,  STAKLN 
OUTPNT  *  OUTPNT  -  1 
TEMP  *  I ABS( OUTPUT (OUTPNT) /1 0000) 

IF  < (TENP.EQ.  2). OR. ((TEMP. GE. 7). AND. (TEMP. LE. 9)). OR. 
3  (TEMP.GE.15) .OR. (OUTPUT (OUTPNT ) .EB.POP) )  GO  TO  100 

90  CONTINUE 

C  END  OF  REPEAT 

C  END  OF  IF 
C 

100  CONTINUE 

C  PLACE  SECOND  OPERAND  IN  SECOND  COLUMN  OF  TRIPLE  ARRAY 

TRIPLE(TRPR0U,2)  =  OUTPUT(OUTPNT) 

C  BLANK  OUT  THE  POSITION  OF  THE  OPERAND  TOKEN  IN  POSTFIX  STRING 

OUTPUT (OUTPNT)  ■  0 
C  END  OF  IF 

C  6ET  THE  NEXT  TOKEN 

GO  TO  10 

C  END  OF  REPEAT  UHILE 
C 

500  CONTINUE 

C  IF  A  RELATIONAL  EXPRESSION  EXISTS  IN  THE  ORDERED  TRIPLES 

IF  (REMBER.EQ.O)  GO  TO  600 

C  THEN  INSERT  THE  ADDRESS  OF  THE  NEXT  TRIPLE  ROU  AS  THE  ADDRESS  OF 
C  THE  CONDITIONAL  BRANCH  ASSOCIATED  UITH  THE  RELATIONAL 

C  EXPRESSION. 

TRIPLE(REHBER,3>  «  TRPROU  ♦  2 
C  ZERO  OUT  PARAMETER 

REMBER  *  0 
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149. 

150. 

151. 

152. 

153. 

154. 

155. 
154. 
137. 

158. 

159. 

160. 
161. 
162. 


TRPROU  *  TRPROU  +  1 

C  INSERT  UNCONDITIONAL  BRANCH  OPERATOR  INTO  ORDERED  TRIPLES 

C  (THE  ADDRESS  OF  THIS  BRANCH  IS  INSERTED  IN  SUBROUTINE  CTRIPS) 
TRIPLE ( TRPROU, 1)  =  BRANCH 

C  INCREMENT  THE  NUMBER  OF  TINES  AN  UNCONDITIONAL  BRANCH  ADDRESS 
C  HAS  BEEN  SAVED 

NUMBX  »  NUNBX  +  1 

C  SAVE  THE  INTERNAL  TRIPLE  ADDRESS  FOR  USE  IN  CTRIPS  SUBROUTINE 
BRADDR(NUHBX)  =>  TRPROU 
C  END  OF  IF 
C 

600  RETURN 

END 


C4EJECT 


1.  SUBROUTINE  PSTFXS  (INPUT,  PRTLVL,  TRIPLE,  TRPROU) 

2.  C 


3. 

C 

xxxxx 

XXXXX 

xxxxx 

XXXXX  X  X 

XXXXX 

4. 

C 

X  X 

X 

X 

X  X  X 

X 

5. 

C 

xxxxx 

xxxxx 

X 

XXXX  X 

xxxxx 

6. 

C 

X 

X 

X 

X  X  X 

X 

7. 

C 

X 

xxxxx 

X 

X  XX 

xxxxx 

8.  C 

9.  (;****♦**»  FUNCTION  OF  NODULE  *****♦  +  •* 

10.  C  > 

11.  C  PSTFXS  TAKES  A  BOOLEAN  EXPRESSION  CONPOSED  OF  LOGICAL  OPERATORS 

12.  C  WITH  RELATIONAL  EXPRESSION  OPERANDS  AS  INPUT  AND  CONVERTS  THEN 

13.  C  INTO  POSTFIX  NOTATION  UHICH  IS  OUTPUT.  H 

14.  C  [4 

15.  c********  PROCEDURE  FOLLOWED  **♦*♦♦** 

16.  C  f 

17.  C  IF  THE  TOKEN  IS  AN  END  DELIHITER  OR  A  RENARK,  THE  TOKENS  IN  THE  $ 

18.  C  STACK  ARE  OUTPUT  UNTIL  THE  STACK  IS  EMPTY.  IF  THE  TOKEN  IS  '(', 

19.  C  IT  IS  PUSHED  ONTO  THE  STACK.  IF  THE  TOKEN  IS  A  MINUS  SIGN  A  rj 

20.  C  CHECK  IS  MADE  TO  DETERMINE  IF  IT  IS  A  UNARY  MINUS.  IF  IT  IS 

21.  C  A  UNARY  MINUS,  THE  CONSTANT  OR  VARIABLE  TOKEN  ON  UHICH  IT  ' 

22.  C  OPERATES  IS  CHANGED  TO  A  NEGATIVE  VALUE.  IF  THE  TOKEN  IS  AN 

23.  C  OPERAND  (OR  PORTION  OF  AH  OPERAND)  OF  A  LOGICAL  OPERATOR  (.AND., 

24.  C  .OR.)  TO  THE  OUTPUT.  IF  THE  TOKEN  IS  AN  OPERATOR  AND  THE  STACK  IS 

25.  C  EMPTY,  IT  IS  PUSHED  ONTO  THE  STACK.  IF  THE  STACK  IS  NDT  EMPTY,  i 

26.  C  THE  TOKEN  IS  COMPARED  WITH  THE  TOKEN  AT  THE  TOP  OF  THE  STACK 

27.  C  AND  IF  THE  STACK  TOKEN  IS  OF  EOUAL  OR  HIGHER  PRECEDENCE  IT  IS 

28.  C  MOVED  TO  OUTPUT.  OTHERWISE  IF  THE  TOKEN  IS  ')',  BOTH  IT  AND  * 

29.  C  THE  '('  FROM  THE  STACK  ARE  DISREGARDED.  FINALLY  IF  NONE  OF  THE 

30.  C  ABOVE  CONDITIONS  ARE  TRUE,  THE  TOKEN  IS  PUSHED  ONTO  THE  STACK 

31.  C  AND  THE  NEXT  OPERATOR  FETCHED.  OPERATOR  ORDER-OF-PRECEDENCE  FROM 

32.  C  LOWEST  TO  HIGHEST  IS  OPENING  PARENTHESIS  '(',  CLOSING  PARENTHESIS  j 

33.  C  ')',  LOGICAL  OR  '.OR.',  AND  LOGICAL  AND  '.AND.'.  ! 

34.  C 

35.  c********  SUBROUTINES  CALLED  *****>♦*:# 

36.  C 

37.  C  TRIPLS-NOMES  POSTFIX-ORDERED  TOKENS  INTO  ARRAY  OF  ORDERED  TRIPLES 

38.  C 

39.  c********  VARIABLE  DECLARATIONS  *+****♦♦ 

40.  C 

41.  C  PARAMETERS 

42.  C 

43.  C  INPUT  -INTEGER  ARRAY,  LENGTH  100,  FOR  PASSING  TOKENS  TO  THIS 

44.  C  MODULE 

43.  C  PRTLVL-INTEGER,  VARIALBE  TO  ALLOW  PRINTING  OF  EXTRA  INFORMATION 

46.  C  WHICH  SHOULD  BE  HELPFUL  IN  MODIFYING  OR  DEBUGGING  THE 
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47. 

48. 

49. 

50. 

51. 

52. 

53. 

54. 

55. 

56. 

57. 

58. 

59. 

60. 
61. 
62. 

63. 

64. 

65. 

66. 

67. 

68. 

69. 

70. 

71. 

72. 

73. 

74. 

75. 

76. 

77. 

78. 

79. 

80. 
81. 
82. 

83. 

84. 

85. 

86. 

87. 

88. 

89. 

90. 

91. 

92. 

93. 

94. 

95. 

96. 

97. 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SYSTEM 

TRIPLE-INTEGER  ARRAY,  SIZE  80  BY  3,  FOR  RETURNING  ORDERED  TRIPLES 
TRPRQU-INTEGER,  POINTER  TO  ROUS  OF  THE  ARRAY  OF  ORDERED  TRIPLES 

INTEGER  INPUT ( 1 00 ) r  PRTLVL,  TRIPLE ( 80 , 3 ) f  TRPRQU 


LOCAL  VARIABLES 


ARRPNT-INTEGER,  POINTS  TO  ENTRIES  IN  THE  PRECEDENCE  ARRAY 
CPAREN-INTEGER,  POSSIBLE  INPUT  TOKEN  OF  CLOSING  PARENTHESIS 
IN  -INTEGER,  POSSIBLE  INPUT  TOKEN  140806 
INPNT  -INTEGER,  POINTS  TO  TOKENS  IN  THE  INPUT  VECTOR 
MINUS  -INTEGER,  POSSIBLE  INPUT  TOKEN  50006 
NOSAVE-INTEGER,  POSSIBLE  INPUT  TOKEN  144002 
NOT  -INTEGER,  POSSIBLE  INPUT  TOKEN  141607 
OPAREN-INTEGER,  POSSIBLE  INPUT  TOKEN  OF  OPENING  PARENTHESIS 
OUTPNT-INTEGER,  POINTS  TO  TOKENS  IN  OUTPUT  VECTOR 
OUTPUT-INTEGER  ARRAY,  LENGTH  100,  FOR  PASSING  POSTFIX 
BOOLEAN  EXPRESSION 

PLUS  -INTEGER,  POSSIBLE  INPUT  TOKEN  50005 
PREC  -INTEGER  ARRAY,  SIZE  2  BY  4,  HOLDS  PRECEDENCE  OF 
ARITHMETIC  OPERATORS 

PRECS  -INTEGER,  PRECEDENCE  OF  TOKEN  AT  TOP  OF  THE  STACK 
PRECT  -INTEGER,  PRECEDENCE  OF  TOKEN  CURRENTLY  UNDER  CONSIDERATION 
STACK  -INTEGER  ARRAY,  LENGTH  30,  STACK  FOR  PROCESSING  OPERATORS 
STKPNT-INTEGER,  POINTER  TO  NEXT  EMPTY  POSITION  ON  THE  STACK 
TEMP  -INTEGER,  USED  FOR  DETERMINING  IF  TOKEN  IS  A  VARIABLE  OR 
CONSTANT 

UNIHUS-INTEGER,  UNARY  MINUS  MULTIPLYING  FACTOR 


INTEGER  ARRPNT,  CPAREN,  END,  IN,  INPNT,  MINUS,  NOSAVE,  NOT, 

8  OPAREN,  OUTPNT ,  OUTPUTCIOO),  PLUS,  PREC<2,4),  PRECS,  PRECT, 

8  STACK < 30 > ,  STKPNT,  TEMP,  UNINUS 

C 

C  CONSTANTS 
C 


DATA  CPAREN/50004/,  END/50030/,  IN/140806/,  MINUS/50006/, 

8  NOSAVE/144002/,  NOT/141607/,  OPAREN/50003/,  PLUS/50005/, 

8  PREC/50003,  0,  50004,  1,  40001,  9,  40002,  8/ 

C 

C  #**♦**♦  *  EXECUTABLE  CODE  «»*****• 

C 


INPNT  *  0 
OUTPNT  *  1 
STKPNT  *  1 
UMINUS  *  41 


C 

20  CONTINUE 

C  INCREMENT  THE  INPUT  ARRAY  POINTER 
INPNT  »  INPNT  4  1 
C 


1 


' 


i  1 
)1 


i 


d 


ifea 


ih 


98. 

99. 
100. 
101. 
102. 

103. 

104. 
103. 
106. 

107. 

108. 

109. 

110. 
111. 
112. 

113. 

114. 
113. 
116. 

117. 

118. 

119. 

120. 
121. 
122. 

123. 

124. 
123. 
126. 

127. 

128. 

129. 

130. 

131. 

132. 

133. 

134. 

135. 

136. 

137. 

138. 

139. 

140. 

141. 

142. 

143. 

144. 
143. 

146. 

147. 

148. 


C  IF  THE  TOKEN  DELIMITS  THE  BOOLEAN  EXPRESSION  (NOSAVE,  REMARK) 

IF  ( ( INPUT(INPNT) .NE. NOSAVE). AND. 

6  ( ( INPUT (1NPND/1 0000 ). NE.  1 ) )  60  TO  40 

C  THEN 

C  UHILE  THE  STACK  IS  NOT  EMPTY 

DO  30  I  =  1,30 

IF  (STKPNT.EQ.1)  GO  TO  500 
STKPNT  =  STKPNT  -  1 
C  NOVE  STACK  TO  OUTPUT 

OUTPUT(OUTPNT)  *  STACK(STKPNT) 

30  OUTPNT  =  OUTPNT  +  1 

C  END  OF  UHILE 

C  END  OF  IF. 

C 

40  CONTINUE 

C  IF  THE  TOKEN  = 

IF  (INPUT (INPNT).NE.OPAREN)  60  TO  50 
C  THEN  PUSH  TOKEN  ONTO  STACK 

STACK(STKPNT)  =  INPUT(INPNT) 

STKPNT  =  STKPNT  ♦  1 
60  TO  20 
C  END  OF  IF. 

C 

50  CONTINUE 

C  IF  THE  TOKEN  IS  AN  OPERAND  (OR  PORTION  OF  AN  OPERAND)  OF  A  LOGICAL 

C  OPERATOR  (CONSTANT,  VARIABLE,  IN,  NOT,  OR  A  RELATIONAL  OPERATOR) 
TEMP  =  INPUT ( INPNT)/10000 

IF  ( ( ( INPUT ( INPNT)/1OO0O) .EQ.4) .OR. (INPUT (INPNT) .EQ.CPAREN) 

2  .OR. < INPUT (INPNT ) .EO. MINUS) .OR. < INPUT ( INPNT) .EQ.PLUS) 
l  .OR. ( INPUT ( INPNT) .EQ.OPAREN) >  GO  TO  60 
C  THEN  MOVE  TOKEN  TO  OUTPUT 

OUTPUT (OUTPNT)  *  INPUT (INPNT)  *  UMINUS 
C  END  OF  IF 

C  RESET  UNARY  MINUS  FACTOR  TO  POSITIVE 
UMINUS  »  +1 
OUTPNT  =  OUTPNT  +  1 
GO  TO  20 
C 

C  IF  TOKEN  IS  OR 
60  CONTINUE 

IF((INPUT(INPNT).NE. PLUS). AND. ( INPUT ( INPNT ). NE . MINUS))  GO  TO  80 
C  THEN  IF  THIS  IS  THE  FIRST  TOKEN  OF  THIS  RELATIONAL  EXPRESSION 
C  THEN  TOKEN  IS  A  UNARY  MINUS. OR  UNARY  PLUS 

IF  (INPNT. EQ. 1 )  GO  TO  70 
C  END  OF  IF. 

C  ELSE  IF  PREVIOUS  TOKEN  IS  A  FUNCTION  OR  OPERATOR  BUT  NOT  ')' 

C  THEN  TOKEN  IS  A  UNARY  MINUS  OR  UNARY  PLUS 

TEMP  *  INPUT( INPNT  -  D/10000 
IF  ( ( (TEMP.NE.5) .AND. (TEMP.NE.6) ) .OR. 

*  (INPUT(INPNT-I). EQ.CPAREN))  GO  TO  80 

C  END  OF  IF. 
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149. 

C 

END  OF  IF. 

150. 

C 

151. 

70 

CONTINUE 

152. 

C 

IF  TOKEN  IS  UNARY  PLUS  DISREGARD  AND  GET  NEXT  TOKEN 

153. 

IF  ( INPUT <INPNT).EQ. PLUS)  GO  TO  20 

154. 

C 

END  OF  IF 

155. 

C 

IF  TOKEN  IS  UNARY  MINUS  CHANGE  SIGN  OF  UNARY  HINUS  FACTOR 

156. 

UMINUS  =  -UN1NUS 

157. 

C 

RETURN  FOR  NEXT  TOKEN 

158. 

60  TO  20 

159. 

C 

END  OF  IF. 

160. 

C 

161. 

80 

CONTINUE 

162. 

C 

IF  STACK  IS  EMPTY 

163. 

IF  (STKPNT.NE.1 )  GO  TO  90 

164. 

C 

THEN  PUSH  TOKEN  ONTO  STACK 

165. 

STACK(STKPNT)  *  INPUT(INPNT) 

166. 

STKPNT  *  STKPNT  +  1 

167. 

GO  TO  20 

168. 

C 

END  OF  IF. 

169. 

C 

170. 

90 

CONTINUE 

171. 

C 

ASSIGN  PRECEDENCE  OF  OPERATOR  AT  TOP  OF  STACK  TO  'PRECS' 

172. 

C 

REPEAT 

173. 

C 

COMPARE  TOKEN  AT  TOP  OF  STACK  UITH  PRECEDENCE  ARRAY 

174. 

DO  100  ARRPNT  »  1,4 

175. 

100 

IF  <STACI<<STKPNT  -  1 ) .EO.PREC<  1 , ARRPNT) )  GO  TO  110 

176. 

C 

END  OF  REPEAT. 

177. 

110 

PRECS  =  PREC<2, ARRPNT) 

178. 

C 

179. 

C 

ASSIGN  PRECEDENCE  OF  OPERATOR  CURRENTLY  UNDER  CONSIDERATION  TO 

180. 

C 

'PRECT' 

181. 

C 

REPEAT 

182. 

C 

COMPARE  INPUT  TOKEN  UITH  PRECEDENCE  ARRAY 

t83. 

DO  120  ARRPNT  «  1,4 

184. 

IF  <INPUT<INPNT).E0.PREC<1, ARRPNT))  GO  TO  130 

135. 

120 

CONTINUE 

186. 

C 

END  OF  REPEAT. 

187. 

130 

PRECT  •  PREC<2, ARRPNT) 

188. 

C 

189. 

C 

COHPARE  PRECEDENCE  OF  TOKEN  AT  TOP  OF  STACK  UITH  INPUT  TOKEN 

190. 

C 

IF  PRECS  >«  PRECT 

191. 

IF  <PRECS.LT. PRECT)  GO  TO  140 

192. 

C 

THEN  MOVE  TOP  OF  STACK  OPERATOR  TO  OUTPUT  AND  COMPARE  TOKEN 

193. 

C 

OPERATOR  TO  NEXT  OPERATOR  IN  STACK. 

194. 

STKPNT  =  STKPNT  -  1 

195. 

OUTPUT <0!JTPNT>  »  STACK(STKPNT) 

196. 

OUTPNT  =>  OUTPNT  ♦  1 

197. 

GO  TO  80 

198. 

140 

CONTINUE 

199. 

C 

ELSE  IF  TOKEN  »  ')' 

IF  ( INPUT ( INPNT ) .  NE  .CPAREN )  GO  TO  150 
THEN  DISREGARD  BOTH  THE  TOKEN  AND  AND  GET  NEXT  TOKEN 
STKPNT  »  STKPNT  -  1 
GO  TO  20 
CONTINUE 

ELSE  PUSH  TOKEN  ONTO  STACK 
STACK(STKPNT)  *  INPUT(INPNT) 

STKPNT  =  STKPNT  *  1 
GO  TO  20 
END  OF  IF. 

END  OF  IF. 

CONTINUE 

PLACE  AN  IDENTIFIALBE  DELIMITER  ONTO  THE  STACK 
OUTPUT (OUTPNT)  *  END 

IF  PRTLUL  *  0  URITE  OUT  THE  POSTFIX  BOOLEAN  EXPRESSION 

IF  (PRTLVL.EQ.O)  URITE  (6,505)  (OUTPUT(I),  1*1,  OUTPNT) 

END  OF  IF 

FORMAT  ('  16(17,  IX)) 

CALL  TRIPLS  (OUTPNT,  OUTPUT,  PRTLVL,  TRIPLE,  TRPROU) 
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1. 

2. 

3. 

4. 
3. 
6. 

7. 

8. 
9. 

10. 

11. 

12. 

13. 

14. 

15. 

16. 

17. 

18. 

19. 

20. 
21. 
22. 

23. 

24. 

25. 

26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 

34. 
33. 

36. 

37. 

38. 

39. 

40. 

41. 

42. 

43. 

44. 

45. 

46. 


r 

SUBROUTINE 

TRIPLS 

(OUTPNT,  OUTPUT,  PRTLVL,  TRIPLE,  TRPROU) 

L 

c 

XXXXX  XXXXX  XXX 

XXXXX 

X 

XXXXX 

c 

X 

XXX 

X  X 

X 

X 

c 

X 

XXXXX  X 

XXXXX 

X 

XXXXX 

c 

X 

XXX 

X 

X 

X 

c 

X 

X  X  XXX 

X 

XXXXX 

XXXXX 

C 

C********  FUNCTION  OF  MODULE  ******** 

C 

C  TRIPLS  ACCEPTS  THE  VECTOR  OF  BOOLEAN  EXPRESSION  TOKENS  WHICH  ARE 

C  IN  POSTFIX  ORDER  AS  INPUT  AND  PROCESSES  THEN  INTO  AN  ARRAY  OF 

C  ORDERED  TRIPLES  UHICH  ARE  OUTPUT. 

C 

C  *******  *  PROCEDURE  FOLLOWED  ******** 

C 

C  THE  VECTOR  OF  BOOLEAN  EXPRESSION  TOKENS  IS  PARSED  AND  THE 
C  TOKENS  IDENTIFIED.  LOGICAL  OPERATORS  < .  AND. ,  .OR.)  ARE  MOVED 

C  TO  COLUMN  ONE  OF  THE  TRIPLE  ARRAY.  THE  OPERANDS  ■'IN  GROUP/ 

C  MODULE'  OR  'NOT  IN  GFOUP/MODULE'  ARE  MOVED  DIRECTLY  TO  A  TRIPLE. 

C  THE  OPERANDS  OF  RELATIONAL  EXPRESSIONS  ARE  PLACED  IN  COLUMNS  TUO 

C  AND  THREE  OF  THE  TRIPLE  UITH  THE  'SUB'  COMNAND  IN  COLUMN  ONE. 

C  A  CONDITIONAL  AND  UNCONDITIONAL  BRANCH  ARE  PLACED  IN  THE  TRIPLES 

C  TO  CAUSE  A  '1'  TO  BE  PUSHED  ONTO  THE  STACK  IF  THE  RELATIONAL 

C  EXPRESSION  IS  TRUE  OR  A  '0'  IF  IT  IS  FALSE.  THE  FINAL  TRIPLE 

C  IS  GIVEN  THE  COMMAND  'SETHSK'  UHICH  UILL  POP  THE  FINAL  RESULT 

C  OF  THE  BOOLEAN  EXPRESSION  FROM  THE  STACK  AND  SET  A  MASK  TO  '1' 

C  IF  TRUE  OR  '0'  IF  FALSE.  THE  ARRAY  OF  ORDERED  TRIPLES  IS 
C  RETURNED  TO  THE  CALLING  NODULE. 

C 

c********  VARIABLE  DECLARATIONS  ******** 

C 

C  PARAMETERS 
C 

C  OUTPNT-INTEGER,  BRINGS  IN  POINTER  TO  LAST  TOKEN  IN  OUTPUT  VECTOR; 
C  ALSO  USED  AS  POINTER  IN  OUTPUT  VECTOR 

C  OUTPUT-INTEGER  ARRAY,  LENGTH  100,  FOR  PASSING  POSTFIX 

C  BOOLEAN  EXPRESSION 

C  PRTLVL-INTEGER,  VARIALBE  TO  ALLOU  PRINTING  OF  EXTRA  INFORMATION 
C  UHICH  SHOULD  BE  HELPFUL  IN  MODIFYING  OR  DEBUGGING  THE 

C  SYSTEM 

C  TRIPLE-INTEGER  ARRAY,  SIZE  80  BY  3,  FOR  RETURNING  ORDERED  TRIPLES 
C  TRPROU-INTEGER,  POINTER  TO  ROUS  OF  THE  ARRAY  OF  ORDERED  TRIPLES 
C 


C 


INTEGER  OUTPNT,  OUTPUT(IOO),  PRTLVL,  TRIPLE < 80 , 3 ) ,  TRPROU 
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47. 

C 

LOCAL  VARIABLES 

48. 

c 

49. 

c 

BEGIN 

-INTEGER,  KEEPS  POSITION  IN  OUTPUT  VECTOR 

WHERE  LAST 

50. 

c 

OPERAND  UAS  FOUND 

51. 

C 

END 

-INTEGER,  DELIMITER  FOR  POSTFIX  STACK 

52. 

c 

NOT 

-INTEGER,  POSSIBLE  INPUT  TOKEN 

141607 

53. 

c 

POP 

-INTEGER,  OPERATOR  TO  POP  THE 

TOP  INTERIM 

ORDERED  TRIPLE 

54. 

c 

RESULT  FROM  A  STACK 

55. 

c 

RELOPS 

-INTEGER  ARRAY,  SIZE  2  BY  6,  HOLDS  RELATIONAL  OPERATOR  AND 

56. 

c 

BRANCH  CODES.  THE  OPERATOR  CODES  INSERTED 

INTO  THE  ORDERED 

57. 

c 

TRIPLE  ARRAY  AREs 

58. 

c 

INPUT  RELATIONAL 

BRANCH 

BRANCH 

59. 

c 

TOKEN  OPERATOR 

CONDITION 

CODE 

60. 

c 

30001  .EQ. 

BNZ 

50011 

61. 

c 

30002  .NE. 

BZ 

50012 

62. 

c 

30003  .GT. 

BHZ 

50013 

63. 

c 

30004  .LT. 

BPZ 

50014 

64. 

c 

30005  .G£. 

BP 

50015 

65. 

c 

30006  .LE. 

BH 

50016 

66. 

c 

SAVE 

-INTEGER,  SAVE  THE  ADDRESS  OF 

OPERAND  OF  LOGICAL  OPERATOR 

67. 

c 

TEMP 

-INTEGER,  USED  FOR  DETERMINING 

IF  TOKEN  IS 

A  VARIABLE  OR 

68. 

c 

CONSTAHT 

69. 

c 

70.  INTEGER  ADD,  AND,  BEGIN/1/,  BNZ,  BRANCH,  BOOLOP,  END,  OR,  POP, 

71.  i  RELOPS (2,6) ,  SAVE,  SELECT,  SETNSK,  SUB,  TEMP 

72.  DATA  ADD/50018/,  AND/40001/,  BNZ/50011/,  BRAHCH/50017/, 

73.  J  END/50030/,  IN/140806/,  NQT/141607/,  0R/40002/,  P0P/50019/, 

74.  *  REL0PS/30001  ,  50011,  30002,  50012,  30003,  50013,  30004,  50014, 

75.  t  30005,  50015,  30006,  50016/,  SELECT/50026/,  SETNSK/50020/, 

76.  i  SUB/50006/ 

77.  C 

78.  c********  EXECUTABLE  CODE  ******** 

79.  C 

80.  OUTPNT  »  0 

81.  10  CONTINUE 

82.  OUTPNT  »  OUTPNT  ♦  1 

83.  TRPROW  =  TRPROU  *  1 

84.  C  IF  THE  TOKEN  IS  END  DELIMITER  THEN  FINALIZE  THE  TRIPLE  ARRAY 

85.  IF  ( OUTPUT ( OUTPNT ) .EQ.END)  GO  TO  400 

86.  C  END  OF  IF 

87.  C 

88.  C  IF  THE  TOKEN  IS  '.OR.'  PLACE  IT  IN  THE  TRIPLE  ARRAY 

8?.  IF  (OUTPUT (OUTPNT ) .NE.OR)  GO  TO  30 

90.  TRIPLE(TRPRQU,1 )  =  50022 

91.  GO  TO  10 

92.  C  END  OF  IF 

93.  C 

94.  30  CONTINUE 

95.  C  IF  THE  TOKEN  IS  ".AND.'  PLACE  IT  IN  THE  TRIPLE  ARRAY 

96.  IF  < OUTPUT ( OUTPNT ) .NE. AND)  GO  TO  50 

97.  TR1PLE(TRPR0U, 1 )  «  50021 
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98. 

tiO  70  10 

99. 

C 

END  OF  IF 

100. 

C 

101. 

50 

CONTINUE 

102. 

C 

IF  THE  TOKEN  IS  'IN'  PLACE  'IN'  AND  THE  GROUP  IDENTIFIER  IN  THE 

103. 

C 

TRIPLE  ARRAY 

104. 

IF  (OUTPUT (OUTPNT ) .NE. IN)  GO  TO  70 

105. 

TRIPLE (TRPROU, 1 )  =  50023 

106. 

TRIPLE (TRPROU, 3 )  =  OUTPUTIOUTPNT  +  1) 

107. 

OUTPNT  =  OUTPNT  *  1 

108. 

GO  TO  10 

109. 

C 

END  OF  IF 

110. 

C 

111. 

70 

CONTINUE 

112. 

C 

IF  THE  TOKEN  IS  'NOT'  PLACE  'NOT  IN'  AND  THE  GROUP  IDENTIFIER  IN 

113. 

C 

THE  TRIPLE  ARRAY 

114. 

IF  ( OUTPUT ( OUTPNT ) .NE .NOT)  GO  TO  100 

115. 

TRIPLEtTRPRQU, 1 )  =  50024 

116. 

TRIPLE(7RPR0U,3)  =  OUTPUT(OUTPNT  +  2) 

117. 

OUTPNT  =  OUTPNT  +  2 

118. 

GO  TO  10 

119. 

C 

END  OF  IF 

120. 

C 

121. 

C 

ANY  TOKENS  UHICH  FILTER  DOWN  TO  THIS  POINT  ARE  RELATIONAL  EXPRESSION 

122. 

C 

OPERANDS  OF  THE  LOGICAL  OPERATORS.  PLACE  THE  SUBTRACT  OPERATOR 

123. 

C 

IN  COLUMN  ONE  AND  THE  TUQ  VARIABLES  OR  CONSTANTS  IN  CDLUNNS 

124. 

C 

TUO  AND  THREE  OF  THE  TRIPLE  ARRAY 

125. 

100 

TRIPLE(TRPRGU,1)  =  SUB 

126. 

TRIPLE(7RPRQU,2)  =  OUTPUT (OUTPNT) 

127. 

TRIPLE(TRPR0U,3)  =  QUTPUT(OUTPNT  ♦  2) 

128. 

TRPROU  =>  TRPROU  +  1 

129. 

OUTPNT  =  OUTPNT  +  1 

130. 

C 

131. 

C 

OBTAIN  THE  PROPER  CODE  FOR  THE  RELATIONAL  OPERATOR 

132. 

c 

REPEAT 

133. 

c 

COMPARE  INPUT  TOKEN  UITH  RELATIONAL  OPERATORS  UNTIL  NATCH 

134. 

DO  140  I  =  1,6 

135. 

140 

IF  (OUTPUT (OUTPNT) .E Q. RELOPS ( 1 , I) )  GO  TO  150 

136. 

C 

END  OF  REPEAT 

137. 

C 

138. 

150 

CONTINUE 

139. 

C 

PLACE  THE  PROPER  BRANCH  CODE,  BASED  ON  THE  RELATIONAL  OPERATOR, 

140. 

c 

IN  COLUMH  ONE  OF  THE  NEXT  TRIPLE  ROU 

141. 

TRIPLE(TRPR0U,1 )  =  REL0PS(2,I) 

142. 

c 

PLACE  'POP'  OPERATOR  IN  COLUMN  TUO  OF  THE  TRIPLE  ARRAY 

143. 

TRIPLE(TRPR0U,2)  =  POP 

144. 

7RIPLE(TRPR0U,3)  =  TRPROU  +  3 

145. 

180 

CONTINUE 

146. 

TRPROU  «  TRPROU  +  1 

147. 

C 

PLACE  'ADD  0  1'  IN  TRIPLE  ARRAY  FOR  TRUE  CONDITION 

148. 

TRIPLE(TRPROU, 1 )  =  ADD 

149.  TRIPLE(7RPR0U,2)  =  0 

150.  TRIPLE(TRPR0U,3>  -  1 

151.  TRPROU  *  TRPROU  4  1 

152.  C  PLACE  'UNCONDITIONAL  BRANCH'  AND  TRIPLE  ADDRESS  IN  TRIPLE  ARRAY 

153.  TRIPLE(TRPRGU,1 )  =  BRANCH 

154.  TRIPLE(TRPR0U,3)  «  TRPROU  +  2 

155.  TRPROU  =  TRPROU  +  1 

156.  C  PLACE  'ADD  0  O'  IN  TRIPLE  ARRAY 

157.  TRIPLE(TRPROU,1)  *  ADD 

158.  7RIPLE(TRPRQU,2)  =  TRIPLE(TRPRQU,3)  »  0 

159.  OUTPNT  =  OUTPNT  4  1 

160.  GO  TO  10 

161.  C 

162.  C  FINALIZE  THE  TRIPLE  ARRAY  FOR  BOOLEAN  EXPRESSIONS.  SETMSK  UILL 

163.  C  CAUSE  THE  EXECUTION  PHASE  TO  SET  A  FLAG  ACCORDING  TO  THE 

164.  C  RESULTS  OF  A  TRUE  OR  FALSE  BOOLEAN  EXPRESSION. 

165.  400  CONTINUE 

166.  TRIPLEORPROU ,  1 )  =  SETNSK 

167.  7RIPLE<TRPR0U,2>  =  POP 

168.  TRIPLE(7RPR0U,3)  =  SELECT 

169.  TRPROU  =  TRPROU  4  1 

170.  C 

171.  C  IF  PRTLVL  =  0  URITE  OUT  THE  ORDERED  TRIPLES 

172.  IF  (PRTLVL. NE.O)  GO  TO  700 

173.  600  N  *  TRPROU 

174.  DO  550  TRPROU  =  1,N 

175.  550  URITE  (6,510)  (TRIPLE(TRPROU, J) ,  J  ■  1,  3) 

176.  510  FORMAT  ('  ',  T10,  17,  T25,  17,  T40,  17) 

177.  700  RETURN 

178.  END 
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